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ABSTRACT 


This thesis describes the conversion of four computer programs on the Naval Post- 
graduate School IBM 3033AP computer system and their implementation on the 
MicroVax 2000 CAD CAE workstation. The existing 2-D airfoil analysis programs 
DeL Tand PANEL were extensively modified to improve the user interface. The 3-D 
wing analvsis program VORLAT also received an updated interface. The JETFLAP 
source program no longer resided on the NPS mainframe and was reconstructed from 
an original source tape and program listing. This program was then converted from 
FORTRAN IV for the CDC 6000 series computers to FORTRAN 77 for use on the 
IBM mainframe and the MicroVAX 2000. Ап interactive data input program. 
JETFLAPIN.,. was deve:oped to simplify data input, provide error checking and cor- 
rection and therebv enhance the utilization of the JETFLAP program. The programs 
ENuUtended for use bv students in basic and advanced courses 1n aerodynamics at the 
Naval Postgraduate School. however they are also applicable to a course in 


computaional aerodvnamics. 
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THESIS DISCLAIMER 


The reader 1s cautroned that computer programs developed in this research may not 
have been exercised for all cases of interest. While everv effort has been made, within 
the trme available, to ensure that the programs are free of computational and logic er- 
rors, they cannot be considered validated. Any application of these programs without 


additional verification is at the risk of the user. 
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П. INTRODUCTION 


Current aerodynamic analysis relies heavily upon numerical methods for estimating 
the aerodynamic coefficients of airfoils and wings. This thesis was undertaken to provide 
the students of the aeronautical engineering curriculum with a series of computer pro- 
grams that would give them a better appreciation and understanding of several compu- 
tational methods that have been applied to classical aerodynamic theory. 

The Department of Aeronautics and Astronautics at the Naval Postgraduate School 
(NPS), in conjunction with the Mechanical Engineering Department, is developing a 
computer-aided design computer-aided engineering (CAD’CAE) laboratory for use in 
research and teaching by their respective curriculums. The svstem is based on a network 
of Digital Equipment Corporation (DEC) MicroVAX 2000 workstations. There is an 
ongoing requirement to provide specialized software (programs) for the computer net- 
work that 1s usable bv the students and staff to support current and future courses and 
ΤΕ ΕΤΕΠ. 

At the time of this writing. several aerodynamic analysis programs reside on the NPS 
ІВМ 3033AP mainframe computer. Thev are in various states of repair! and due to 
constant software and hardware upgrades of the mainframe system some programs 
provide limited output capabilities? while others are becoming unusable due to compiler 
changes. There is also a wide range in the amount and quality of the documentation 
available for each program. This thesis seeks to remedy a portion of this problem and 
support the previously mentioned software needs requirement bv providing a set of 
baseline programs and thorough documentation which will extend the life of these val- 
uable programs and allow further upgrades and eventually the incorporation of graphics 
routines by future users. 

The programs contained in this work were selected on the basis of their applicability 
to the present courses taught in basic and advanced aerodynamics at NPS, the doc- 


umentation available and previous user inputs. They were revised or modified with the 


l Source code is not available for some programs, in particular FLO27. Since certain output 
flags for FLO27 were set in the source code and the user was unable to alter these, an inordinate 
amount of unwanted output was produced. 


2 Several programs. notably FLO27, JETFLP and those used in the Aircraft Combat 
Survivability and Lethality courses have lost their graphical output due to software incompatibility 
problems. 
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intent that they be used for preliminary design and to evaluate the changes in aero- 
dynamic coefficients due to changes in one or more of the input parameters. To this 
end. the following factors were empasized in modifving or creating the programs to make 
them easily understood and utilized: 

e Error checking’correction capability. 

φ Capability to make multiple runs in one session. 

* Capability to change one or more parameters on subsequent runs. 

e Ltilize a standardized interface (to the extent possible). 


φ Allow user defined names for input output files. 


This document brieflv describes the basic theory behind the 2-D airfoil and 3-D wing 
analvsis programs and the reprogramming required for transfer and conversion of the 
selected programs from the IBM 3033AP and CDC 6000 series computers to the 
NMicroVAX'2000 CAD, CAE workstation. 

A users manual for each program is contained in the appendices. These provide а 
short discussion on the purpose of the program, input requirements and constraints. 
program operation and the program output. A sample input session, input data file (if 
required) and the resulting output as well as a complete program listing 1s also included. 


Project results and recommendations for future Work are given. 


111. BASIC THEORY OF 2-D AIRFOIL ANALYSIS PROGRAMS 


A. INTRODUCTION 

The following sections are intended to present the reader with a basic understanding 
of the ideal fluid flow concepts underlving the 2-D airfoil analysis programs. This brief 
summary contains just a few highlights which would be obtained from a course in the 
fundamentals of aerodvnaniics and in no way attempts to provide the reader with a firm 
foundation in aerodvnamics or fluid flows. 

t will be assumed that the reader 1s familiar with the concepts of velocity potential, 
¢, stream function, ۷۰, and their derivatives. [t 15 further assumed that the reader has 
some familiarity with the concepts of the basic fluid flows: uniform stream. source, sink, 
vortex and doublet. Figure | depicts these basic fluid flows and provides and example 
of how two of these flows, a uniform stream and a doublet, may be combined to model 
the flow over a cylinder. A thorough discussion of these flows and their properties may 
be found in most aerodynamics texts. References 1, 2, 3 and 4 were instrumental in the 


preparation of the following sections. 
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Figure |. Basic Fluid Flows 


B. PROGRAM DUBLET 

The tvpe of analvsis used here 1s a direct method in which the shape of an ellipsoid 
or airfoil-like body is specified and the problem is to solve for the distribution of 
singularities which, in combination with a uniform stream, produce the flow over the 
body. 

This program provides a numerical method for approximating the soluuon of the 
integral equation for the line doublet distribution for a svmmetrical airfoil at zero hft in 
incompressible irrotational flow. With the doublet strength known, the velocity held can 
be determined using equations for the stream function and velocity potential. Once the 
velocitv field is known, the pressure field may be determined using the Bernoulli 
equation. 


For this problem the airfoil body shape is specified as y = Y/x;. l1tis a closed form 


which has a finite length or chord, c as shown in Figure 2. 





Figure 2. An Airfoil-like Shape 


Such a shape can be defined by an equation of the form: 


— 


VG) - A X (e x) (1) 


This shape is to be modeled bv a string of doublets along the x axis, and the strength 
of each doublet to be determined. The solution is required to meet the flow tangency 
condition and the doublets are required to be within the body. 

Since thin-airfoil theory fails near the stagnation points and it is not physically 


possible for the source distribution to extend to the ends of the bodv and still meet the 


flow tangency condition, there must exist a fimite distance between the ends of the source 
distribution and the stagnation points. 

This distance is determined bv approximating the shape of a blunt-nosed airfoil near 
its nose, x = 0, as parabolic. Using thin-airfoil theorv and the radius of curvature 
(Figure 3), the source streneth near the leading edge of the source distributiom сап те 
approximated. Applying this approximation and the requirement that the source- 
induced velocity must cancel that of the onset flow at the stagnation point, it can be 
shown [Ref. 1 pp.52-54], that the separation distance between the stagnation point and 


the leading edge of the source distribution 1s approximately half the radius of curvature 


of the nose of the body. A simular analvsis holds for the other end of the bodv. 





Fieure 3. The Radius of Curvature of a Leading Edge 


The program DUBLET incorporates the half radius of curvature inset and satisfies 
the flow tangencv requirements using an iterative approach. This is done by taking an 
approximation to the proper inset, solving the set of simultaneous equations for the 
doublet strength distribution which satisfies the flow tangency condition and then eval- 
uating the resulting velocity at the stagnation points. If the velocity is not sufficiently 
close to zero, the estimated values are revised and the process is repeated. The iterative 
approach used is an interval-halving or bisection method of root-finding similar to that 
desenibed Tele» 

A more complete development of the thin-airfoil theory and the underlying 


equations used to derive this method are detailed by Moran [Ref. 1}. 


C. PROGRAM PANEL 

This analvsis again uses the direct method to solve for the proper distribution of 
singularities3 on a body which, in combination with a uniform stream, provide the flow 
Euer the body. 

This program uses a numerical approach to provide an approximation to the sol- 
ution of the integral equation for the source and vortex distribution on the surface of a 
hfting body in incompressible irrotational flow. It is specifically designed to evaluate 
NACA four- digit airfoils and NACA five-digit airfoils of the 230XX series; however 
provisions are made within the program for entry of any arbitrary airfoil shape. 

The following presents some reasons for and a brief development of the panel 
method. Although thin airfoil theory gives reasonably good results for lift and moment 
E@emicients, it ignores the effect on those coefficients of the thickness distribution. In 
addition, thin airfoil theory gives good pressure distribution results onlv awav from the 
Stagnation points. Since proper design of an airfoil requires an accurate prediction of 
Its pressure distribution, more powerful methods are based on the distributions of 


sources and vortices or doublets. This 1s empasized by Moran when he states 


“To avoid the inaccuracies of thin-airfoil theory. the flow-tangencv condition must 
be satisfied on the body surface and...the singularities should be distributed on the 
body surface rather than on the chord line or anv other line within or without the 
body.” 
To achieve this placement of the singularities on the body, the body surface is ap- 
proxunated by a collection of straight line panels. This form of surface approximation 
Isowhere the panel method receives its name. Program PANEL uses a solution method 


based on sources and vortices distributed on these surface panels. 


The potential for this flow mav be described as 
фе Фф. T Pst Oy (2) 


where $, is the potential of the uniform onset flow, which can be written in a Cartesian 


system as 


Poo = Vox cose + V y sina (3) 


3 “Singularities” is used here as а generic term for sources, vortices, doublets and other funda- 
mental solutions of the Laplace equation that blow up--are “singular’--at some point outside the 
flow field. 


where I’, 15 the velocity of the uniform flow. and o is the angle between the flow direc- 


tion and the x aus. The remaining potenual terms are defined as 


о ΠΠ (4) 
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0 ds (5) 
in which the integrations are over the body surface. This defines @, , as the potential 
of a source distribution of strength q(s) per unit length and $, , as the potential of a 
Vortex distribution of strength ;(s) per umt length. Figure 4 shows that s is the distance 


measured along the surface from some arbitrarv reference point--in this case the leading 


edge has been chosen--to the ^field point^, (xy) , or (r, 0) in polar coordinates. 





Figure 4. © Nomenclature for the Analysis by the Panel Method 


We seek a solution where g(s) and y(s) are determined so as to meet the boundary con- 
dition of flow tangency and the Kutta condition. The latter is the requirement that the 
stagnation point be at the trailing edged. 

The view of this problem taken bv Hess and Smith [Ref. 6] 1s that the source 


strength governs the flow tangency condition and the Kutta condition governs the 


4 All airfoils considered here are assumed to have sharp trating edges. 


vortex strength5. Thery make the simphifving assumption that the vortex strength is 
taken constant over the whole airfoil, 1.e. y(s) 2 y , and justify this by reasoning that, 
since the Kutta conditicn governs the vortex strength, and the Kutta condition involves 
Sms the trailing edge, then the vortex strength can be represented bv a single number. 
Conversely, the source strength must varv over the surface to allow the flow tangency 
condition to be satisfied at all points on the body surface. 

The integrals of equations (4) and (5) are difficult to evaluate unless the surface on 
which the singularities are distributed 15 a straight line. This is where the surface panels 
come into play. The body 15 divided up into a set of panels bv selecting a set of .N points, 


called nodes, which are then connected bv straight lines. This results in an approxi- 


mation of the bodv composed of .V nodes and panels as shown in Figure 5. 





Figure 5. Definition of Nodes and Panels 


The sources and vortices are distributed on the straight line panels and the constant 
vortex strength assumption is incorporated so that the potential given by equation (2), 


as developed in equations (3) through (5), may be written as: 





E 

| ۱ qs) y 

ф = Vox cosa + Voy sin e + 2 | l7 0 (6) 
I 2л 2m 


j 





5 Іп actuahty, both singularity distributions are important in satisfying either condition. 


To allow evaluation of the integrals in equation (€), the source strength 1s taken to 


be constant on each panel, but allowed to varv from panel to panel, i.e. 
g(s) = q; on panel ии (7) 


The parameters to be determined are then the source strengths g, and the single 
vortex strength y. These аге found by imposing the flow tangency ۶ ٣ 
points and a corollary to the Kutta condition which states. “Near the trailing edge, the 
flow speeds on the upper and lower surfaces of the airfoil are equal at equal distances 
from the trailing edge. "[Ref. 1] 

Moran [Ref. 1] provides a clear explanation of the geometric development of the 
problem and the resulting set of Y + 1 equations in the unknowns g, i = 1....,.V, and 
y. This leads into a discussion regarding the development of a FORTRAN program that 
uses the panel method. Program PANEL sets up and solves this set of equations. The 
tangential velocity at the midpoint of each panel is then evaluated and its associated 
pressure coeflicient C, 1s calculated. By assuming the latter to be constant over each 


panel, the estimated lift and moment mav then be calculated. 
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IV. BASIC THEORY OF 3-D WING ANALYSIS PROGRAMS 


A. INTRODUCTION 

As discussed in the previous section on 2-D airfoil theory, there are several wavs to 
model the source of forces acting on a body surrounded by a moving fluid. These in- 
cluded potential functions, vortex distributions, circulation distributions and pressure 
differential distributions. These models are related to one another and each has advan- 
tages and disadvantages. Both of the following programs. VORLAT and JETFLAP, relv 
on a distribution of discrete horseshoe vortices to model the flow over a wing. 

1. The Horseshoe Vortex 

To provide the reader with an understanding of the theory behind the VORLAT 
and JETFLAP programs, it is necessary to explain what a horseshoe vortex 1s and what 
properties it has. References 1, 2, and 3 provided a basis for much of the material con- 
tained in this section. 

The idea of th. horseshoe vortex was developed by Prandtl and Lanchester 
while trving to provide a simplified model of the ideal flow over a wing. Prandtl rea- 
soned that a vortex filament of strength ['. bound to a fixed location in a flow--a bound 
vortex--will experience a force L = po, V. T from the Kutta-Zhukovsky theorem. To 
satisfv Helmholz' theorem which states that a vortex filament cannot end in a fluid, the 
vortex filament continues as two free vortices extending downstream from the wing tips 
to infinity. The construction of this vortex is in the shape of a horseshoe and it is 
therefore called a horseshoe vortex. Itis correctly pointed out however by Zucker that. 
"..the word “horseshoe”, although in common usage, is misleading since these filaments 
are actuallv "closed" back at the place where the motion originated." [Ref. 3] 

As shown in Figure 6, the wing 1s replaced bv a "lifting line” perpendicular to 
the flight direction and located at the quarter-chord, with the two free vortices trailing 


from the wing tips. 
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Figure 6. Replacement of the Finite Wing with a Bound Vortex [Ref. 2 


This model did not provide a very realisuc simulation of the downwash distrib- 
ution of a finite wing: especially near the tips where the predicted downwash approaches 
an infinite value... The downwash distribution as a function of the span, w(), 15 shown 


I PISIS E 


Trailing vortex 
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Figure 7. Downwash Distribution Along v Axis for a Horseshoe Vortex [Ref. 2 
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An improvement on this model was the “lifting line” model which superimposed 
a large number of horseshoe vortices. each with a different length of bound vortex, but 
with all the bound vortices lying alone a single line. This is depicted in Figure Š$ which 
has three horseshoe vortices of strengths, АГ,, AT, and AT, The variation of T along 
the lifting line is denoted bv the vertical bars. Since L oc I, this 1s also an indication of 
the lift distribution. It should be noted that the strength of each trailing vortex 1s equal 
to the change in circulation along the lifting line at the point where the trailing vortex 


Starts. 





Figure 8. Superposition of Three Horseshoe Vortices Along a Lifting Line [Ref. 2] 


This model is good for high aspect ratio straight wings and provides an excellent 
prediction of spanwise loading and overall lift. It cannot however, produce chordwise 
pressure distributions and moment data. 

To deal with low aspect ratio straight wings, the model is extended by placing 
a series of lifting lines on the plane of the wing at different chordwise stations, all parallel 
to the y axis. In the liumut of an infinite number of these lifting lines, we obtain a vortex 
sheet, where the vortex lines run parallel to the y axis. The strength of the sheet per unit 
area is denoted bv y, where the latter varies in the y direction in a manner analogous to 


the variation of T for the single lifting line. In addition, each lifting line will have, in 
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ceneral, a different overall strength. so thal » also Varies With K ТІГЕ 


y= Wwe) 1S SNOW In оше 


Lifting 
surface 





Figure 9. Schematic of a Lifting Surface [Ref. 2] 


This vortex sheet results in a Jifting surface distributed over the entire planform 
of the wing. The strength of the lifüng surface at any point on the surface is given by 
у= у(х). Тһе aim of the lifüng surface theory is to find y(x,) such that the flow- 
tangency condition is satisfied at all points on the wing. 

For computational purposes the planform is divided into a finite number of 
square or rectangular panels and the yth panel chosen for initial computation. The 
spanwise Vorticity on each panel is assumed to be concentrated at the quarter-chord 
point of the panel and the flow tangency condition is satisfied at the "control point” 
which is located at the three-quarter chord point of the panel (Ref. I]. The wing problem 
then reduces to computation of the velocity at the control point on this yth panel due 
to all the other panels. Thus velocity is combined with the freestream value and the 
tangency condiuon applied. For each panel, there is therefore, one linear equation and 
with V panels there are ۱ such equations. Matrix methods are applied to solve this 
system and with the vorticity distribution known, the Kutta-Zhukovsky theorem is ap- 
pled to obtain the lift and moments. The induced drag can be computed from the 
downwash, which is Known at the control points. The vortex-lattice method used by 


program VORLAT is a simple approach used to solve for y = y(x,). 


14 


B. PROGRAM VORLAT 

Program VORLAT implements the vortex-lattice method to determine the solution 
for the vortex strength distribution on a flat, untwisted, rectangular wing. A set of 
horseshoe vortices are used to approximate the flow over a wing of low aspect ratio. 
This is a version of the VORLAT program by Moran [Ref. 1] which has been highly 
modified and now incorporates a cosine spacing scheme. 

The User's Manual presents a short description of the VORLAT program. For 


complete coverage of the original VORLAT program. consult Moran [Ref. 1]. 


C. PROGRAMS JETFLAP AND JETFLAPIN 
٣۰۰٠ JETFLAP was written by M. L. Lopez, C. C. Shen. and N. F. Wasson 

at the Douglas Aircraft Company, Long Beach, California. The program is based on 
A Theoretical Method for Calculating the Aerodynamic Characteristics of Jet-Flapped 
Wings [Ref. 7] which was developed under a research contract sponsored by the Office 
of Naval Research. The program is quite extensive and has the capability of determining 
the following aerodynamic characteristics of wings of arbitrary planform: 

e Spanwise and chordwise loading 

e Spanwise variation of induced drag 


© A capability to investigate the effects of: 
Part span flaps 
Part span blowing 
Pitching, rolling, vawing and sideslip 


* Total hit and induced drag (imomentum method). pitching, vawing and rolling mo- 
ШЕЛІ5, етс. 


The program also provides the capability to investigate the effects of a variation of 
leading and trailing flap deflection, camber, twist, jet deflection and jet momentum. 

Despite the manv capabilities of this program and the revised User's Manual devel- 
oped by Soderman [Ref. $] in 1976, the program has had limited use at the Naval Post- 
graduate School since then. This author feels that a major reason for its lack of use 15 
the inordinate amount of time required for the user to prepare and input the data file for 
even the most elementary planform. 

To alleviate this problem, the author developed Program JETFLAPIN, an interac- 
tive data entry program to interface with the JETFLAP program. To ensure compat- 


ibility, much of JETFLAPIN was created using existing subroutines from JETFLAP. 


The JETFLAPIN program provides the user with a method of developing an almost 
error-free6 input data file for use with the main JETFLAP program. 
The JETFLAPIN program provides error-checking, data review correction, assur- 


ance that all required data has been entered and the elimination of redundant data entry. 


6 While it is still possible for the user to input bad data values, the errors due to values out 
of limits or incorrect formatting have been virtually eliminated. 
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V. PROGRAM TRANSFER AND CONVERSION 


A. INTRODUCTION 

This section discussed the steps taken in the transfer of the programs DUBLET, 
PANEL, VORLAT and JETFLAP from the IBM mainframe computer and their con- 
version for use on the MicroVAX 2000 workstation. The information provided here will 
be of use to others planning future transfers of programs between the IBM mainframe 
computer and the MicroVAX 2000. 


B. FILE TRANSFER 
l. Programs DUBLET, PANEL, VORLAT 

٦۷۷۰۰٠٠٠۲۹۱۰۰۱۱0 191۲۰٣۳۰۹۰۰۰۰۰۴۱ and VORLA were located on the IBM 
mainframe under the user account 4632P. which was set up for use bv the Numerical 
Methods course, AE 4632, taught in the Aeronautical Engineering Department.7 Each 
program was opertational on the mainframe and was activated through the use of an 
шіге Calling routine referred to as an “EXEC”. These EXECs and the program 
source code files were readilv available for transfer. 

Each program and its calling EXEC were transferred to the VAX 11/780 located 
in the Computer Science Department. This was necessary as the AE’ ME VAX network 
is not currently linked with the IBM mainframe. This transfer was conducted bv Mr. 
David Marco, a computer technician working on the AE/ME VAX system, using the 
VAX 2780 3780 Protocol Emulator. The file transfer procedures outlined in a Computer 
Science Department handout covering the RJE File Transfer Package were followed. 
When the transfer was completed. the files were downloaded to a magnetic tape car- 
сев а DEC TKSO. 

The tape was then taken to the MicroVAX/2000 workstation and loaded into 
the DEC TK50 tape drive subsystem connected to the workstation. The files were then 
tranferred from the tape to the workstation’s hard disk. From here the files could be 
edited using the VAX EDT editor (Ref. 9], compiled, linked and run under VAX 
FORTRAN version V4.0. 


7 The read-only password for this account is JV H. 


20٢ 
Program JETFLAP had to be handled quite differently than the other programs. 
It too was operational on the mainframe, however it had been converted into a cata- 
loged procedure, JET FLP. and was executed using a Job Control Language (JCL) rou- 
tine. An example of this JCL file is shown in Figure 10. More information on how to 
create and use JCL files mav be found in the User's Guide to MVS at NPSTREPSIDIB 
Пете С се Зас И Ер 


//TAPER JOB (1461,1478),' DOUGLAS JETFLAP PRGM',CLASS-C 

//*MAIN ORG=NAVPGS. 1461P 

[fo eC ΤΕ 

ο ο ۰ 

Tapered Swept Wins, AR=8, Sweep Angle 45, 10X10 W/Semi-Circle Spacing 
50. 0000 20. 000 0.0 10. 43 10. 43 

1001000001020000 

. 993844 -269372 2921022 2030012 7755062 . 647446 520866 

. 381504 922726 2005237 

O10100 10101010101010] 

10 

. 000000 


. 024 
709929 0 
5 


472 ο ο” ٦ -385492 , 654508 
+508 07535298 

520 45.0 0.45 

9 

у: 

// 


- 
ر 


Неше 10. . Sample JEIFLAP Batch JCL File 


After an exhaustive search bv the personnel of the W. R. Church Computer 
Center at the NPS, it was determined that onlv the compiled version of the program 
existed on the IBM mainframe. The source code had been purged from the svstem and 
Was not recoverable. 

A magnetic tape containing the original Douglas Aircraft Company program 
was obtained from Dr. M. F. Platzer. This copy had been obtained during thesis work 
conducted by LCDR A. P. SODERMAN. The tape was logged into the NPS computer 
center and its characteristics were determined using the tape scan JCL utility shown in 


Figure siii. 





//JETFLP JOB (1461,9999),'JETFLP TSCAN1‘ , CLASS=E 
//*MAIN SYSTEM=SY2 ,RINGCHK=NO 


Аы 


py Print tape file characteristics for any tape 

//* 

E EXEC TSCAN, VOLIN=JETFLP , DCBIN=' DEN=2' , UNITIN=' 3400-4' 
7 





Figure 11. Magnetic Tape Scan Utility (TSCAN) JCL File 


The tape scan utility revealed that the tape used a verv old tape density of 800 
ВРІ. The computer center still had an 800 BPI magnetic tape machine, however they 
recommended that the contents of this tape be copied onto a new tape using the more 
common density of 1600 BPI. This was accomplished using the magnetic tape copy 
uulity JCL file shown in Figure 12. The name of the original tape volume was JETT LP. 


Nu τας changed to JTFLAP оп Һе пем сору. 


//JCOPY JOB (1461,9999),'JETFLP COPY',CLASS-E 

(AM 

//* | COPY TAPE FILE FROM 800BPI TO ANOTHER AT 1600BPI 
КЫ 

// EXEC TAPE, VOLIN=JETFLP , DCBIN=' DEN=2' ,UNITIN='3400-4' , 


m VOLOUT=JTFLAP 
ΤΙΝ DD * 
ESUEND( 10,11) 

y E. 

ny 





Figure 12. Sample Tape Copy JCL File 


Several parity errors occurred while reading the original tape during the copving 
process. This was an indication that the files contained on the original tape or those 
obtained through the transfer process may contain errors. 

To discover the contents of the tape, a magnetic tape dump utility JCL file was 


used. This file 1s shown in Figure 13. 
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//3TFLAP ЈОВ (1861,9999), ТЕТБАРФЕРЕТ ЕК S 
//*MAIN SYSTEM=SY2 , RINGCHK=NO , LINES=( 10) 

s 

//* | PRINT THE CONTENTS OF EVERY FILE ON THE TAPE. 
/[* 


ГГ ЕХЕС ΤΑΡΕ ο Ντ F 
Ρος Шы 
DMPFIL(10,256,1) 

/* 

// 


Figure 13. Sample Tape Dump Utility JCL File 


A quick review of the printout of produced by this utility revealed that the tape 
did contain a complete set of the desired files and these were transferred to the author’s 
working disk (A disk) using the procedures outlined in Reference 12. The JCL file used 


to perform the transfer froin tape to the mainframe is shown in Figure 14. 


//JTFLAP JOB (1461,9999),' JETFLAP TRANSFER’ ,CLASS=A 
// EXEC PGM=IEBGENER 

//SYSPRINT DD SYSOUT=A 

//SYSIN DD DUMMY 

//SYSUT1 DD DISP=SEHR,DSN=MSS. C0052. JETFLP 


//SYSUT2 DD UNIT=3350,VOL=SER=MVS004 , DISP=( NEW ,KEEP), 
n SPACE=(CYL,(1,1)), 

7 DCB=( RECFM=FB , LRECL=80 , BLKSIZE=8000), 

// DSN=S1461. JETFLP 

n 


Figure 1d. Sample Tape Transfer JCL File 


The file was edited to remove the extra lines associated with the transfer process, 
specifically header, trailer and svstem information lines associated with the JCL tape 
transfer utilitv. The transfer process also places the record number and record length 
at the beginning of each record. These were removed. The edited version of the pro- 


gram consisted of 4661 lines of FORTRAN code. 








Examination of the program file revealed that erroneous pieces of Informations 
had crept into the source file. These were due to either the transfer process itself or ef- 
fects of the environment and aging on the magnetic tape. Regardless of their source, 
these errors corrupted the source code to such a degree that it would not compile prop- 
erlv on the mainframe. 

An attempt to compile the program was made using the VS FORTRAN com- 
piler with its extended error messages? to locate as many errors as possible. The hsting 
which was produced flagged all critical areas of the program which required revision. 
Corrections to the program were made using the listing as a guide. Corrections to 
non-critical areas of the program, such as comment lines, Were made using the program 
source code listings contained in References $ and 7 as guides. 

It was noted during the editing process that no further errors were encountered 
in the program following line 2462. This leads the author to the conclusion that the er- 
rors Were not due to the transfer process, but solelv due to defects present in the outer 
windings of the source tape. 

Following completion of the editing process, the program was compiled satis- 
factorilv. Since the program was written using several commands specific to FORTRAN 
IV it was necessary to compile the program using the (LVL(66)) option with the VS 
fet RAN compiler. This invokes the FORTRAN IV version of the VS FORTRAN 
compiler which allows proper interpretation and compilation of older programs written 
under the FORTRAN IV standard. 

The successfully compiled JETFLAP program was then run using the sample 
data files provided in References $ and 7 as input files. The results were then compared 
to those tabulated in References § and 7 which were obtained using the same data files. 
A slight difference was discovered between the computed values for the moment coeíh- 
cients (CM and CMG). This difference was traced to a program line for CMG(K) in 
Subroutine SLOAD which had been modified in [Ref. 8: p. 338] and [Ref. 7: p. C-19]. 
but had not been corrected on the version of the program contained on the source tape. 
Modification of this hne and subsequent compilation and running of the program 


produced results identical to those contained in References $ and 7. An additional 


8 The erroneous data consisted of extra spaces, non-standard characters and improperly in- 
terpreted characters, 1.e., several O's were interpreted as Ms. 


.. 9 The WATFIV comraier is more thorough and produces an even greater number of messages. 
It 15 recommended for use on smaller programs or in the final stages of program development due 
to its extensive Output. 


comparison was made with the data file and results produced by S. M. White, as part 
of a class project for AE 3501[Ref. 13]. Again the results were identical” It was thems em 
that the program was readv to be ported over to the MicroVAX 2000. 

The JETFLAP program was transferred from the IBM mamira oO 
MicroVAX 2000 in the same manner described previously. It was compiled using the 
' ХОЕ77 qualifier under VAX FORTRAN and appeared to compile successfully. When 
a sample run was executed, the program terminated abnormally. This began an ex- 
tended period of debugging to achieve proper operation of the program on the 
Micro VAX. 2000. 


C. CONVERSION AND REPROGRAMMING 
1. Programs DUBLET, PANEL, VORLAT 
The programs DUBLET, PANEL and VORLAT vere Wc TS 
FORTRAN 77 standards and therefore required little modificauon to become opera- 
tional on the MicroVAN ‘2000. The only significant changes required involved the 
handling and assignment of input and output data files. As discussed in the section on 
file transfer, each of these programs had an EXEC file which related to it. Each EXLC 
contained the name of the program to be run and its associated file definition statements. 
The file definition statements, FILLDEFs, assign input output devices and were used to 
define input and output file names and attributes and associate these with the logical 
unit numbers!0 assigned in the called program. An example of these FILEDEFs, with 
the FILEDEF command abbreviated to FI, are shown in Figure 15. More information 
on these max be found in the User's Guide to VM CMS at 0р5 | Ке To 
C NIS Commane Telerenec ере 


10 A logical unit number is specified or implied as part of the 1/O statement and it designates 
the device or file to or from which data is transferred. Logical unit numbers are integers from 0 to 
Do 





&TRACE ON 

ΤΊΠΤΕ ТТЕТАР ΡΑΤΙ B (RECFM Е LRECL 2400 BLKSIZE 2400 DSORG DA 
ЕШ) DISK JIFLAP DATA2 В (КЕСЕМ VBS LRECD 860 BLKSIZE 3460 
Pies DISK JTFLAP DATA3 B (RECFM VBS LRECL 860 "BLKSIZE 3460 
FI 4 DISK JTFLAP DATA4 B (RECFM VBS LRECL 860 BLKSIZE 3460 
FI 5 DISK JIFLAP DATAIN (PERM 

Bo DISK JTFLAP DATAOUT (RECFM FBA LRECL 133 BLKSIZE 3325 
GLOBAL TXTLIB VFORTLIB CMSLIB 

LOAD JTFLAP 

GLOBAL LOADLIB VFLODLIB 

CLRSCRN 

START * 

a E COMPUTING PROCESSING IS COMPLETED 


Figure 15. FILEDEFS in a Sample JIFLAP EXEC File 


Although the use of EXEC files and FILEDEFs is relativelv easy and is com- 
mon practice on the IBM mainframe, they are part of the VMS operating svstem and 
are not in accordance with FORTRAN 77 standards. The VAX VMS operating system 
does have a similar capability using the COMMAND or .COM file. however in an effort 
to make the programs more machine independent and compliant with the 
FORTRAN 77 standard, it was decided to open and define input and output files wirhin 
each FORTRAN program. 

The use of the OPEN statement causes a logical unit number (device) to be as- 
signed for input and or output. Within the OPEN statement specific characteristics of 
the file such as record size, file tvpe. type of access. file status. etc., are defined. An ex- 


٣۰۰٠٠ Of Such an OPEN statement is shown in Figure 16. 


C OPEN FILE FOR DATA FILE INPUT 
OPEN (UNIT=LUN, 
FILE ЕТ ЕК 
ORGANIZATIONsS 'SEQUENTIAL', 
ACCESS- 'SEQUENTIAL', 
RECORDTYPE- 'VARIABLE', 
FORM» 'FORMATTED', 
2 STATUS ۶۶ ۶۹ ۹ ۷ 
C OPEN SCRATCH FILE FOR MATRIX INPUT TO SOLN ROUTINE 
OPEN (UNIT=2, 
FILES !JTELAP2 DAT 3 
ORGANIZATION= ‘SEQUENTIAL’ , 
ACCESS= SEQUENTIAM @ 
RECORDTYPE- 'VARIABLE', 
FORM» 'UNFORMATTED', 
STATUS. SORO 





Figure 16. Sample OPEN Statement 


Much of the information shown in these OPEN statements may be defaulted, 
that is. if a qualifier is not input bv the programmer, a predetermined response 15 set by 
the compiler. The attributes have been shown here for claritv and to enhance portabil- 
ity. Since not all compilers use the same defaults, it ts important to know as much as 
possible about the file attributes when transferring programs from one machine to an- 
other. General information on these qualifiers max be found in most FORTRAN texts 
and specifics for the MicroVAX 2000 may be found in the VAX FORTRAN Manuals 
(Refs. 16 and 17 ]. 


VI. RESULTS AND RECOMMENDATIONS 


sve oojectives of this thesis study have been achieved. A set of four FORTRAN 

programs for basic aerodynamic analysis are available for student projects on the 
Micro/VAX 2000 CAD CAE workstation. The following programs have been success- 
fullv transferred from the NPS IBM mainframe computer and are operational on the 
Micro VA X/2000. 

ENP:osran DUBLET 

e° Program PANEL 

e Program VORLAT 

ШРгостат JETFLAP 


In addition, an interactive program, JETFLAPIN, has been developed and implemented. 
The programs are easy to use, JETFLAP being an exception, and they provide the de- 
sired attributes of data review correction, multiple run capability and error-checking. 
A users manual for each program) was created. These manuals along with sample 
input. output files and complete program listings are contained in the appendices. 

The programs were tested to ensure their accuracy and completeness following 
conversion. This was accomplished by comparing the output files generated by the IBM 
mainframe and the MicroVAX. 2000 for identical input files. The numerical output 
values were generally in agreement to the fourth decimal place or better. When the 
JETFLAP output file for the DOUGLAS.DAT casell was compared to the output file 
in Ref. 7, it was found to be numerically exact. save for a few isolated values. 

lli results of the 2-D programs DUBLET and PANEL were compared to the ex- 
pected theoretical values and wind tunnel data and showed good correlation. The results 
of program PANEL for the NASA LS(1)-0013 airfoil showed excellent agreement with 
those of Ref. 18. Although not its main purpose, the PANEL program is especially 
useful for generaung the surface coordinates for an airfoil of the NACA XXXX or 
23XXX series. 

The 5-D program VORLAT, using the cosine spacing option, produced results 


nearly identical to those obtained bv Hough [Ref. 19], for a wing of aspect ratio 2. As 


11 Input file used by Douglas Aircraft Co. to validate JETFLAP in their report to ONR. 


ы.» 
сл 


mentioned previously, the results of JETP LAP compared well with the results found in 
۰ ls 

Countiess manhours were expended 1n the editing, debugging and validating of these 
programs, and the result is the desired set of baseline programs for basic aerodvnamic 
class projects and research. 

As with all programs, there are still a few more changes that could be made to im- 
prove the utility or flexibility of these programs. The next major step is to provide the 
capability of generating graphical output from the data produced by these programs. 
The programs DUBLET, PANEL and VORLAT lend themselves quite readily to this 
due to their columnar output form, and in fact. the results shown in Figures 26 through 
34 in Appendix E were produced on the IBM mainframe using EASYPLOT and 
DISSPLA: 

There 1s also furthe~ work to be done on program JETFLAPIN. Although it sS 
operational. the data review correction and error-trapping routines were not imple- 
mented for Jet-flapped wings due to time constraints. А user inputing data for a con- 
ventional unblown wing of arbitrary or trapezoidal planform will not be aware of this 
deficiency. 

Although the JETFLAPIN program performs its designed task of assisting the user 
in creating the properly formatted JET LAP input file, a few suggestions for improve- 
ment are considered relevant. 


The program should allow the user to define the number of spanwise and chordwise‏ ٭ 
divisions and then automatically compute the required coordinates using a semi-‏ 
circle or similar scheme.‏ 


e [he program should provide graphical displav of the spanwise and chord 
loadings for the fundamental and composite cases. The section loadings to be 
plotted should be user selectable. 


e The capability to read in and either continue or modify an existing file would be 
quite useful. This would be an improvement over using the EDT editor to modify 
(and possibly corrupt) the properly formatted file. 
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APPENDIX A. PROGRAM DUBLET USER'S MANUAL 


USERS GUIDE: CONTENTS 


ο PINE MENTEM. LI el mo 
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Introduction 

The purpose of the DUBLET program is to determine the piecewise constant doublet 
strength m(z) for a line doublet distribution of an elliptic or airfoil-like shape at zero 
angle of attack. The points ¢ represent the location of the doublets along the chord or 
line of symmetry. They are concentrated near the ends of the distribution, using a cosine 
spacing method, where the variation of the doublet strength is expected to be most rapid. 
The point ἡ corresponds to x, and ty corresponds to the endpoint x. The abscissas x, 
of the points at which the integral equation is satisfied are chosen as the midpoints of 


the subintervals on which the doublet strength. js constant, ١ + ہ١‎ ٤٥ 


The stream function can be calculated from the doublet strength distribution. From the 
stream function, the velocity components and the pressure coefficients may be calcu- 
lated. The surface shape is defined by у= F(x) and the solution must satusfy. the 


boundary conditions at the leading and trailing edge stagnation points. 


Assumptions and Limitations 

The approach taken to develop this method of solution assumes that the source and 
doublet strength functions are both piecewise-constant. It 1s also important to remem- 
ber that this solution is for incompressible and inviscid irrotational flow. Since the 
bodies under investigation are svinmetrical and at zero angle of attack. there is no lift 
or induced drag produced. In addition. there is no drag since we are considering an 


inviscid fluid. 


Input Description 
There are very few input values required for this simple program. Their description and 


program variable name: are listed below. 
NTYPE - Type of body shape; elliptic or airfoul-like. 
TAU - Thickness ratio. (Maximum thickness, chord) 
XMAXY - Chordwise location of the point of maximum thickness. (Airfoil only) 
N - Number of intervals. 2 € N < 100 
NS - Doublet distribution starting point. 
XF - Doublet distribution ending point. 
NXTOL - Exponent value used to generate the convergence criterion XTOL. 


NFTOL - Exponent value used to generate the convergence criterion FTOL. 


XTOL - X location tolerance. 


FTOL - X location tolerance. 


Sample Problem 

A few sample problems will illustrate the use of the DUBLET program. The first run 
will be done using an ellipse of thickness ratio 0.1. The second run will analyze an 
airfoil-like shape with a thickness ratio of 0.12 and a chordwise location of maximum 
thickness of 0.30. 


Starting the Program 
Begin with the screen showing the DCL prompt, which looks hke this. 
$ 
Next, ensure that the program isin vour directory by typing 
DIR [Return] 
aening the files for DUBLET.EXE and DUBLET.OBJ. If only the DUBLET.FOR 
file exists, vou must compile the program bv tvping, 
FOR DUBLET [Return] 
The next step 1s to link the program bv entering, 
LINK DUBLET [Return] 
The files DUBLET.EXE and DUBLET.OBJ will now exist and you will be able to run 


the program. 


Running the Program 
To run the program, type 
DUBLET [Return] 
The program will start and the screen should look similar to what is shown in 


ШЕйге 17. 


PROGRAM DUBLET : VERSION 2 : 3 AUGUST 88 


DOUBLET DISTRIBUTION METHOD IS USED TO DETERMINE 
INCOMPRESSIBLE FLOW AROUND AN ELLIPSE OR 
SYMMETRICAL AIRFOIL AT ZERO ANGLE OF ATTACK 


PROGRAM ASSUMES A NONDIMENSIONAL CHORD, THAT IS, 
THE VALID RANGE OE SIS 1: 570٦ 


ENTER TYPE OF ۰۰ ЕСЕ ГВ 
1() οκ 
2) SYMMETRICAL AIRFOIL: MIFE 
ЕКТЕК І ОК 2. 


Figure 17. Initial Screen for Program DUBLET 


Por the elliptic case respond to the requesumb ۶٣ 
] [Return] 
Respond to the request for the thickness ratio by entering 
0.1 [Return] 
Now enter the number of intervals vou desire the doublet distribution to have bv enter- 
Ing 
10 [Return] 


The screen should now look like what is shown in Figure 18. 


WHICH METHOD DO YOU WISH TO USE TO DETERMINE THE 
DOUBLET DISTRIBUTION ENDPOINTS? (1 OR 2) 


1) PROGRAM INTERVAL-HALVING SUBROUTINE TO ITERATE. 
2) MANUAL ITERATION BY THE USER. 





Figure 18. Endpoint Determination Method Selection Screen 


Respond to the question bv entering 
] [Return] 


If you should desire to enter your own values, enter 2. 
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The next values vou will be required to enter are for the X location tolerance and the 
stagnation point velocity function tolerance. [t is recommended that values of 101-6 
(0.000001) be used. The maximum number of iterations should be set at a value of at 


least 20 when using such small tolerances. 


The output parameter entry has only to do with the interval halving subroutine. Unless 
you are having problems with the program or are interested in the convergence of the 


solution, it is recommended that this value be set to zero (0). 


Following entry of the output parameter, the program begins the solution process. It 
returns with. UO and Ul, the values for the X velocity component at the stagnation 
points and the values for XS and XF, the beginning and ending points of the line doublet 
EE UbDuton. If the values for UO and Ul are sufficiently close to zero, say less than 
105-5 (0.001), then enter 

Y [Return] 
mevou desire more accuracy, enter 

N [Return] 
and then reenter the tolerance and maximum iteration values. Responding with a (Y) 
will cause the program to proceed to the output stage. Values will be printed to the 
screen and to the following data files: 


ADLET. DAT : DOUBLET STRENGTH DISTRIBUTION 
SHAPE. DAT : BODY SURFACE COORDINATES 
PRESSURE. DAT: SURFACE PRESSURE DISTRIBUTION 


You will be asked for the number of pressure coefficient output points vou desire. This 
number is independent of the number of intervals of the line doublet distribution. It 
affects only the number of output data points and not the accuracy of the solution. The 
program now asks if you want to make another run. Enter 
] [Return] 

This time the sample problem will work through the airfoil-like shape case and the user 
will supply the values of XS and ХЕ. Тһе user mav experiment with manual iteration, 
however to save space this sample will use previously determined satisfactory values of 


AS and XF for the initial guess. 
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You should now be back at the initiai screen and it should look like Figure 17. For the 
airfoil-hke case enter 
2 [Return] 
Respond to the reauest for the thickness ratio by entering 
.12 [Return] 
For the chordwise location of maximum thickness, enter 
.30 [Return] 
NOW enter the number of intervals vou desire the doublet distribution to have bv enter- 
ing 
10 [Return] 
The next step is to select the method for the determination of the endpoints for the 


doublet distribution. The screen should look like Figure 19. 


WHICH METHOD DO YOU WISH TO USE TO DETER ОЕ 
DOUBLET DISTRIBUTION ENDPOINTS? (1 OR 2) 
1) PROGRAM INTERVAL-HALVING SUBROUTINE TO ITERATE. 
2) MANUAL ITERATION BY THE USER. 


Figure 19. Endpoint Determination Method Selection Screen 


This time respond to the question by entering 
2 [Return] 

For the doublet distribution starting point, XS, enter 
.0082129128 [Return] 

For the doublet distribution ending point. XF, enter 
99941385 [Return] 


As with the previous example, the program now begins the solution process. It returns 
with UO and U1, the values for the X velocity component at the stagnation points. И 
also echoes back the values entered for XS and XF. If the returned values for Са 
Ll are sullictentix close 10.7610. ٦٣ 

Y [Return] 


This response will cause the program to proceed to the output stage. Values will be 


printed to the screen and tothe darnie 


نما 
LES)‏ 


Enter the number of pressure coefficient output points vou desire. You are reminded 
that this number is independent of the number of intervals of the line doublet distrib- 


ution and it does not affect the accuracy of the solution. 


The program now asks if vou want to make another run. The session is finished, so enter 
2 [Return] 


This completes the sam»le problems for the DUBLET program. The data files created 
by these sample runs and the listing for the DUBLET program are on the following 
pages. Since the bodies analvzed by this program are symmetrical with respect to the x 
axis, only the upper surface bodv shape coordinates and pressure coefficients are output. 
For this reason, the piecewise constant doublet strength M(I) 1s divided bv two to indi- 


cate the portion affecting the upper surface. 
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SAMPLE PROBLEM OUTPUT DATA FILES 


Sample problem 1: Ellipse - Thickness ratio = 0.1 


1(1) 


— Chordwise location of doublets, T(1)2 XS T(N)= XF 


M(I)/2 = Piecewise doublet strength / 2 


DATA FILE: DUBLET. DAT 


DOUBLET STRENGTH DISTRIBUTION 


QO CO تی "رت "تی یت‎ G ο 


ТОГУ) 


. 0045 
20297 
1 
2057 
3469 
5000 
ЕЗІ 
ЭЭ 
9009 
UIS 
5 


μμ; 


ΠΗ 
100.059 
05395 
0494 
0547 
0547 
049. 
Oo 
0259 
OUS 
. 0000 


τ Εντ". 


Sample problem 2: Airfoil Shape - Thickness ratio = 0.12., ХМАХҮ = 0.30 


DOUBLET STRENGTH DISTRIBUTION 


Сом ey aa بے‎ 


TOI 


40082 
20925 
1029 
5ػ‎ 
9517 
2026 
09510 
E 
. 9048 
29752 
. 9994 


MC I)/2 


. 0184 
. 0438 
. 0624 
0703 
10671 
DUST 
20363 
. 0214 
200683 
ΠΕ 
.0000 


ο ο ο ο ος ο ο οσο σος ο 
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Sample problem 1: Ellipse - Thickness ratio = 0.1 


DATA FILE: SHAPE. DAT 


BODY SHAPE - UPPER SURFACE 


Х Е 
220166 O70 128 
0. 0639 0. 0245 
1139 υ οσοι 
00 “956 0. 0448 
0. 4234 0. 0494 
Ш 5766 0. 0494 
722 0. 0548 
0. 8461 0703601 
70 1 0.0245 
0.9835 ο οι ο 


Sample problem 2: Airfoil Shape - Thickness ratio = 0.12, XNIAXY = 0.30 


EDDY SHAPE = UPPER SURFACE 


X 1 
20203 00219 
90577 0. 0381 
ο ο) 020525 
0 6 00597 
0.4272 06 
0.5804 0. 0590 
0.7260 0. 0365 
0. 84299 U. 0216 
0. 9400 0.0091 
89573 030020 
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BODY SURFACE PRESSURE DISTRIBUTION 


X CP 


. 0000 1. 0000 
1} ο ٤ 
2222 0 
555 20.10666 
=0. 20789 
39206 “02.2075 
-0067 =0 15 
7758 «022241 
40809 20352001 
. 0000 1: 0000 


= O بے ں‎ ο 05 Q0 O0 cC 
{~ 
г- 
{~ 
p 


Sample problem 1: Ellipse - Thickness ratio = 0.1 
DATA FILE: PRESSURE. DAT 


Sample problem 2: Airfoil Shape - Thickness ratio = 0.12, NMANY = 0.30 | 
BODY SURFACE PRESSURE DISTRIBUTION 
i 


X CP 


. 0000 ТОО 
212141 -0. 3986 
2072 ТО з 
όνος “0. 3462 
:0. 29905 
` 550 =0. 1520 
T0667 SOFI) 
776 20.201090 
. 8889 20-242 
290900 1. 0000 


KH OO OOO GO GOGO O 
p 
£- 
D 
p 
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PROGRAM DUBLET 


PROGRAM DUBLET LISTING 
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OUTPUT RESULTS 


010 
115 


ооо 


1415926585 


MPLOT 
(I },MPLOT 


12) 

0 
l,N*1 
ےر‎ 
Т(Т) 
040) 1 


1 
1,10 
270 
І = 
Ξ μι 
040 
111 
020 
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ИВТТЕ (12,1020) 
DO 210 I = 1)N 
XX εκτ. οτι τὴ 
VY 7بت‎ 
PRINT 1040, ХХ 
210 WRITE {12 1057 XX, YY 
PRINT 1030 
212 READ (5,%) МРВІ 
IF (NPRINT .LT. 2) THEN 
PRINT κ, ' YOU MUST ENTER A MINIMUM OF 2. PLEASE REENTER.' 
GO TO 212 
END IF 
WRITE (13,1032) 
DO 220 I = l,NPRINT 
XX I (li RLOAT(NPRINT-1) 
CALL PRESS(XX,U,CP ) 
PRINT 1040, XX%,CP 
220 WRITE (13,1040) XX,CP 
C. CALL LIBRARY ROUTINE TO CLEAR THE SCREEN, THEN PRINT HEADER 
CALL CLRSCRN 
PRINT x, * PROGRAM DUBLET RESULTS HAVE BEEN WRITTEN TO FILES:' 
PRINT *, : DUBLET.DAT : DOUBLET STRENGTH DISTRIBUTION’ 
PRINT x, ' SHAPE.DAT : BODY SURFACE COORDINATES 
PRINT D | BRESSURE DAT: SURFACE PRESSURE DISTRIBUTION' 
PRINT ж 
C pp OPTION TO MAKE ANOTHER RUN 
PRINT x, ' DO YOU WISH TO: |! 
PRINT x, ' 1) MAKE ANOTHER RUN OR! 
PRINT *, . 2) END THIS SESSION' 
PRINT *, ' ENTER 1 OR 2.' 
PRINT ж 
CALL QUERY (NANS) 
CALL CLRSCRN 
IE INANS .EG- 1) GO TO 10 
STOP 
1000 FORMAT(AL) 
1010 FORMAT(/,* DOUBLET STRENGTH DISTRIBUTION: 
+ M=- MII FOR TII) IT. T LT. τίίἰιγ',,,, 
+ 5X,'TLIJ' 5X, 'MEI/2! ,7) 
1012 FORMAT(/," DOUBLET STRENGTH کک نت‎ 3225 
+ ز2ر0 ا۱ ا1ے‎ 
1020 FORMAT(/7,! BODY SHADE - UPPER SURFACE',//,6X, X' 9X, Y ,7) 
1030 FORMAT(//,' BODY SURFACE PRESSURE DISTRIBUTION' »/ 
6*X,'* ,8X,' CP',//,' INPUT NUMBER OF PRESSURE COEFFICIENT’, 
«OUTPUT POINTS" ) 
1032 ,FORMAT(//,' BODY SURFACE PRESSURE DISTRIBUTION';//, 
۲پ‎ 8X, ΟΡ") 
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Сх ХХХ ХХХ ХУ ЖЖЖ ЖЖЖ ЖЖ JE E JE JE JE JE JE E HH HH HH HHH HH HHH HH 
SUSROUTINE CLRSCRN 


ς LIBRARY ROUTINE TO CLEAR THE SCREEN. 
ENT LIBSERASE, PAGE (1,1) 

C HHH HHH AH HHH HK HHH HHH HHH ХХХ Ж ЭЕ Ж Ж ЭЕ Ж JE JE JE JE JE JE JE JE JE JE Ж ОЖЖ ЖҰЖ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ 
SUBROUTINE QUERY ( NANS ) 


C 
C ROUTINE TO TRAP ERRORS CAUSED BY IMPROPER RESPONSES TQ QUESTIONS. 
C THE COMPUTER GENERATES AND ERROR WHEN A CHARACTER IS SUPPLIED TO 
C A QUESTION EXPECTING AN INTEGER OR REAL VALUE 
NQTEST=0 
1 CONTINUE 
IF (NOTEST .GT. 0) THEN 
PRINT *, ' “CHARACTER VALUES ARE NOT VALID. ' 
enone! x, ' PLEASE ENTER A VALUE OF 1 OR 2:' 
NQTEST - NGTEST * 1 
READ (5,X,ERR-I)JNANS 
ETURN 


R 
E en ххх хх ХХ ХХХ ХХХ ХХ ХХХ ХХХ ХХХ ХХХ 55% 
Мр 


5ОВКОМТІМЕ ҒІМОМ (Т,М;М,Х5,ХҒ) 


C 
C FIND DOUBLET STRENGTH TO MEET 
ς FLON TANGENCY CONDITION 

DIMENSION T(100),M(10 

COMMON /COF/ A( 101; 111} )NEQNS 

PI - $.1415926585 

NP ma 

DO 100 I 
C COSINE SPA cru SCHEME FROM XS TO XF 

FRACT = .5%(1. - COS(PIX(I-1)/FLOAT(N))) 
1008 7 = XS + (XF - XS)XFRACT 
С SET UP LINEAR SYSTEM OF EQUATIONS 

DO 210 I = 1,N 

I 5 SLT) + Т(Тї+1)) 
ЕАС1 - АТАМ2(Т(1) - ХІ,ҮІ) 
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END 
SUBROUTINE GAUSS(NRHS ) 


С 
С SOLUTION OF LINEAR ALGEBRAIC SYSTEM BY 
с GAUSS ELIMINATION WITH PARTIAL PIVOTING 
C од - COEFFICIENT MATRIX 
C NEQNS = NUMBER OF EQUATIONS 
ς ΝΒΗ5 = NUMBER OF RIGHT HAND SIDES 
Č RIGHT-HAND SIDES AND SOLUTIONS STORED IN 
C COLUMNS NEQNS+1 THRU NEQNS*NRHS O 
COMMON /COF/ A(101,111),NEGNS 
NP =" NE τε 
: NTOT = NEQNS + NRHS 
Ç GAUSS REDUCTION 
2 DO 150 I = 2,NEQNS 
С -- SEARCH FOR LARGEST ENTRY IN (1I-1)TH COLUMN 
С ON OR BELOM MAIN DIAGONAL 
IM = 3 
ІМАХ - IM 
AMAX = ABS(ACIM,IM)) 
DO 110 J = 1,NEONS 
ΤΕ LAMAX .GE. ABS(A(J,IM)))} GO TO 110 
AMAS = ABS(A(J,IM)) 
2219 CONTINUE 
: -- SWITCH (I-1)TH AND IMAXTH EQUATIONS 
IF (IMAX .NE. IM) GO TO 140 
DO 130 J = IM;NTOT 
TEMP = A( Ih, J 
ACIM,J) = ACIMAX,J) 
ACIMAX,J) = TEMP 
„130 CONTINUE 
Č ELIMINATE (I-1)TH UNKNOWN FROM 
С ITH THRU (NEQNS)TH EQUATIONS 
140 DO 150 J - I,NEGNS 
= ACJ>IMI/ACIM,IM) 
DO 150 K = I;NTOT 
(150 МЭК) = АЈ КО - R*A(IM,K) 
с BACK SUBSTITUTION 
DO 220 K = NP 
AC(NEQNS,K) = 20 K )/A( NEGNS ,NEGNS ) 
DO 210 L = 2,NEQ 
I = NEQNS +L - L 
IP s e 
DO 200 J = IP,NEGNS 
200 ALIK) š A(I;,K) - ACI JJXAUJ,K) 
210 ALIK) = A(I;K)ZA(I,1) 
220 CONTINUE 
RETURN 


CH HHH IH HHH HH HH HHH HEH HHH HHH HHH HH HH HH HHH HHH HH HHH HEHEHE 4 %% X HEH HEE HEH HEHE HEH HHH HK HHH 


END 
SUBROUTINE PRESS(X,U,CP ) 


С 

E FIND PRESSURE COEFFICIENT CP AT (X,Y(X)) 
COMMON  T(100),HM( 1000),N,XS,XF 
REAL 
YB 2 Y(X) 
U = 1.0 
V = 0.0 
VF1 = 1./(( T(1) - х)жег 4 ΥΒΧΥΒ}) 
1ا‎ = (T(1) - X)%VF1 
DO 100 J = 1,N 
VF2 - l./(( TCJ*1) - Х3жж%2 + YBX*YB) 
UF2 2 (T(CJ*1) - K)¥V 
U = U + Mt(J)X(UF2 - UF1) 
V = V - MCJOXYBX(VF2 - VF1) 
VET = VF2 

100 UF1 - UF2 

CP = 1.0 - UxU - VxV 
RETURN 
END 
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ооо оос) 


FUNCTION Y 
COMMON EEN? αχ, TAU, NTYPE 


ORDINATE OF BODY CONTOUR 
IF (NTYPE .EQ. 1) THEN 


PROVIDE BODY ORDINATES FOR AN ELLIPSE OF THICKNESS RATIO TAU 
(CHORD HAS BEEN NONDIMENSIONALIZED, C=1.0) 
TO REDUCE THE NUMBER OF VARIABLES PASSED IN THE FUNCITON 
STATEMENT, THE DUt?4Y VARIABLE AX PASSES TAU FOR THE ELLIPSOID 
CASE AND THE COEFFICIENT AX(TAU,XMAXY ) FOR THE SYMMETRICAL 
AIRFOIL-LIKE CASE 

Y = TAU ® SQRT(X*¥(1.-x)) 
ELSE 


PROVIDE BODY ORDINATES FOR A SYMMETRIC E -LIKE SHAPE 
(CHORD HAS BEEN NONDIMENSIONALIZED,; C-1. 


2. AX * SQRT(X)*(C1-X) 


RETURN 
C EEIEIE IE HE JE DE IE E JE JE JE JE JE JE JE JE JE JE E E E E E EE E E DE JE JE JE JE JE JE JE JE E IE IE JE JE JE JE JE IE JE JE JE ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ E EE E E ЭЕ ЗЕ ЭЕ 
END 
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NG AND TRAILING EDGES FOR SUBROUTINE PRESS 


— але рари р 


rnrm> TO 


ITERATE TO DETERMINE THE PROPER LOCATION FOR XF 


FIRST CHECK TO SEE THAT F(XF) & F(XFPREV) DIFFER IN SIGN 
SO THAT THE HETHOD HILL COHVERGE. 


EVALUATE PREVICUS x VAL 
CALL FIHBM (T,M,N,XS;XFPREV) 
CALL PRESS (xTE;Ul,CD) 
YFPREV = Ul 
EVALUATE INITAL GUESS FOR X VALUE 
CALL FINDI1 (TT MoN>®S> XP) 
CALL PRESS (XTE Ul ,CP) 
IF (ICUT .GT. 1) WRITE (IH.5) XFPREV, YPREV, ХЕ, ҮЕ 
IF (YÉPREUXYF .GT. 0.0) THEN 
PRINT 201 
RETURN 
END IF 
COMPUTE SEQUENCE OF POINTS CONVERGING TO THE ROOT 
DO 10 K=1, MAXIT 
XR = (XFPREV + XF)/2. 
FOR THE ELLIPTIC CASE xo’ AND XF WILL BE EQUIDISTANT FROM THE EDGES. 
IF (NTYPE .LT. 2) THEN 
XS = ABS (tl. - XR) 
END IF 
CALL FINDM XS, 1 
CALL PRESS EE QUT. 
CHECK ON STOPPING CRITERIA 
DELTAXF = XFPREV-XR 
XERR = ABS(XFPREV_XR 1/2. 0 
IF (IOUT .GT. 1) WRITE (IMH,6) K,XR,Y,DELTAXF 
ШЕ (Ү EQ 0.0) IEXIT = 2 
IF (ABS(Y) .LE. FTOL) IEXIT = 3 
ТЕ ( XERR .LE. XTOL) IEXIT = 7 
IF (IEXIT .GT. 1) GO TO 20 
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Introduction 

The purpose of the PANEL program is to provide an analvsis of the aerodynamics of 
NACA four-digit airfoils and airfoils of the NACA 230XX family using the panel 
method. This program has been modified to accept arbitrary airfoil surface coordinate 


input. 


Assumptions and Limitations 

This program 15 hmuited to single-element airfoils. The solution 1s determined for condi- 
tions of incompressible and inviscid irrotational flow. Since we are considering an 
inviscid fluid, the coefficient of drag provided in the results is for the induced drag com- 


ponent onlv. 


Input Description 
As with the DUBLET program, there are very few input values required for this simple 
program. Their description and program variable names are listed below. 

INUPPER = Nuniber of modes on the upper sunace. 

ΝΕΟΣ ΕΚ Number of nodes on the Jo vemsuniace: 


X(D.Y(I) - Surface coordinates. These mav be entered from the kevboard, from a data 
file. or from data statements. The program 1s capable of generating an approximation 
for airfoils Of the NACA wee and K scenes. 


ALPHA - Angle of attack. (Angle between the chord and the freestream velocity.) 


Input Restrictions 

The program, as written, is limited to 100 total surface nodes. This mav be modified by 
changing the size of the arrays, however only a very complex surface should require that 
many values to accurately define the surface. lf that is the case, a more sopi w 
program should be considered for the investigation. As mentioned above, the computer 
generated approximations to airfoil shapes are limited to the NACA XNXXX and ٣٤ 
series. The program will accept vałues for ALPHA up to 90 degrees, but the user 15 
cautioned that since separation usually begins at about 10 to 15 degrees, results for val- 


ues above 15 may be suspect. 


Sample Problem 
A few sample problems will illustrate the use of the PANEL program. The first run will 


be done using an approximation to a NACA 0012 airfoil which 1s generated by the 


4. 





program using the information associated with each digit in the NACA number. The 
second run will analvze a NASA LS(1)-0013 airfoil using a set of data statements con- 
taining the airfoil surface coordinates. These statements must be inserted into the 


proper location in the program prior to running it. 


Starting the Program 
Begin with the screen showing the DCL prompt, which looks like this. 
$ 
Next, ensure that the program is in vour directory bv tvping 
DIR [Return] 
Ισ Πε files for PANEL.EXE and PANEL.OBJ. If only the PANEL.FOR file 
exists, vou must compile the program by typing, 
FOR PANEL [Return] 
The next step is to link the program bv entering. 
LINK PANEL [Return] 
The files PANEL.EXE and PANEL.OBJ will now exist and vou will be able to run the 


program. 


Running the Program 
Torun the program, type 
PANEL [Return] 
The program will start and the screen should look similar to what is shown in 
Figure 20. 


PROGRAM PANEL 


SMITH-HESS (DOUGLAS) PANEL METHOD 
FOR A SINGLE-ELEMENT LIFTING AIRFOIL 
IN TWO-DIMENSIONAL INCOMPRESSIBLE FLOW 


DO YOU WISH TO: 
1) USE AIRFOIL SURFACE COORDINATE DATA VALUES. 
2) HAVE COMPUTER GENERATE AN APPROXIMATION 
FOR A NACA XXXX OR 230XX AIRFOIL SECTION. 
3) QUIT THE PROGRAM. 
ENTER 1, 2, OR 3 





Figure 20. Initial Screen for Program PANEL 


For the first case we will have the computer generate an approximation for the shape 
of a NACA 0012 airfoil, consisting of 20 surface panels, using an algorithm contained 
in subroutine NACA4S. The angle of attack of the onset flow will be six degrees. To 
use the approximation method, enter 

2 [Return] 
Respond to the request for the number of surface data points by entering 

20 [Return] 
Confirm the number of surface data points vou desire bv entering 

1 [Return] 


Although the program will allow a different number of upper and lower surface data 





points, it is recommended that you try and keep them equal. An unequal number of 
nodes vields trailing-edge panels of unequal length, which lowers the accuracy of the 
approximation to the Kutta condition. Respond to this question by entering 

] [Return] 
Ihe next question asks for the NACA number of the airfoil you are considering. For 
this case we will look at the NACA 0012, so enter 

0012 [Return] 


Ihe screen should now look like what 1s shown in Figure 21. 


ENTER NUMBER OF SURFACE DATA POINTS DESIRED 
20 
NUMBER OF SURFACE DATA POINTS TO BE GENERATED - 20 


15 THIS- VALUE CORRECT? (Yh5S=1 ۵٦ 
1 


ARE THE NUMBER OF UPPER AND LOWER SURFACE 
DATA POINTS(NODES) EQUAL? (ҮЕ5-1, КО-2) 
1 


INPUT NACA NUMBER, ANY FOUR-DIGIT OR 230XX SERIES 
0012 


INPUT ALPHA IN DEGREES (ALPHA » 90 TO EXIT LOOP) 


Figure 21. Screen Showing Data for Computer Generated Airfoil 
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The program is now ready to perform its calculations. The final piece of information 
required is the angle of attack, ALPHA. By entering values of ALPHA that are less than 
90 degrees, you may look at as many different angle of attack cases as vou desire. En- 
tering a value for ALPHA that 1s greater than 90 degrees will cause the program to stop 
the present airfoil analysis and provide vou with a choice of exiting the program or ex- 
amuning another airfoil. For this case, respond to the question by entering 
6 [Return] 

Following entry of the angle of attack, the program begins the solution process. Values 
scroll up the screen and are simultaneously being written to the data files. When the 


Solution is complete you should see the screen shown in Figure 22. 


PROGRAM PANEL RESULTS HAVE BEEN WRITTEN TO FILES: 


PBODY. DAT : BODY SURFACE COORDINATES 
PPRES. DAT : SURFACE PRESSURE DISTRIBUTION 


VO TOU WISH TO: 
1) MAKE ANOTHER RUN OR 
2 END THis SESSION 
ATER 1 OR 2. 





Figure 22. Run Completion Screen 


Say vou have finished your analysis of the NACA 0012 at this point and vou want to 
examine another airfoil. Enter a value of ALPHA that is greater than 90 degrees, such 
as 

99 [Return] 
A new screen will be presented and the program now asks if vou want to make another 
fen, Enter 

I [Return] 
This time the sample problem will examine a NASA LS(1)-0013 whose coordinates have 
been entered as data statements in the program. You should now be back at the initial 
screen and it should look like Figure 20. Since vou will be using actual airfoil coordinate 


data values. enter 
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1 [Return] 
The screen shown in Figure 23 now presents you with the three choices availabiemimns 
entering the airfoil surface coordinate data values. You will be using the data state- 
ments, so enter 

3 [Return] 


DO YOU WISH TO ENTER THE SURFACE COORDINATE VALUES: 
1) FROM A DATA FILE. 
2) FROM THE REYBOARD. 
3) USING DATA STATEMENTS ALREADY ENTERED 


IN THE MAIN PROGRAM. == NOTE === 57 

THAT PROGRAM BE MODIFIED IN ADVANCE BY MOVING 

DATA STATEMENTS TO THE CORRECT LOCATION. 
ENTER 1, 2, - OR 2: (CEOR PREVIOUS D E ο μα... 





Figure 23. Menu for Surface Coordinate Data Entry Method 


The number of data points has been entered via the data statements, therefore vou are 
not asked that question for this case. For the angle of attack. again enter 
6 [Return] 
As vou saw in the previous example, values scroll up the screen. These solutions will 
be appended to the solutions for the NACA 0012 airfoil. The data files are overwritten 
onlv when a new session (from the DCL prompt) ۶٣ 
The program now asks if vou want to make another run. The session 1s finished, so enter 
2 [Return] 
This completes the sample problems for the PANEL program. The data files created 


by these sample runs and the hsting for the PANEL program are on the following pages. 


سے 


SAMPLE PROBLEM OUTPUT DATA FILES 


Sample problem 1: МАСА 0012 Airfoil 


DATA FILE:  PBODY.DAT 


BODY SHAPE 

X Y 

1. 0000 0. 0000 
9755 -0. 0034 
0.9045 20907129 
70+09 ο ο οἱ 
0.6545 -0. 0404 
0. 5000 Ὁ 
0. 3455 20405945 
700 1 2080077 
955 -0. 0460 
0. 0245 ο ο. 
0. 0000 0. 0000 
0. 0245 89ء0‎ 
0۱0955 0. 0460 
0. 2061 0۳000 ή 
О, 3455 0.0594 
5 5000 0506526 
0. 6545 0. 0404 
0 9 0. 0261 
0.9045 0۷۶ 
۳۰۰/75 0. 0034 
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Sample problem 2: NASA LS(1)-0013 Airfoil 


BODY SHAPE 

X Y 

1. 0000 0. 0000 
029000 ο 6, 
0. 8000 US 
0- 7000 -0. 0420 
0. 6000 -0. 0546 
0. 5000 20 0521 
0.8000 -0. 0645 
0. 5000 -0 
012000 2050575 
O. 1000 -0.0454 
OOS -0. 0407 
0 0500 -0. 0346 
0.0247 ο ου 
Оо 0.0194 
0. 0000 0. 0000 
220195) 0. 0189 
0 0 00255 
0.0499 0.0347 
O50750 0. 0408 
0. 1000 0.0454 
0. 2000 ο ου» 
O. 5000 00651 
0. 4000 0. 0653 
0 0 0.0620 
0. 6000 0.0545 
02 20012 0. 0418 
0. 8000 0. 0264 
0. 9000 7ئ‎ 





Sample problem 1: NACA 0012 Airfoil 


DATA FILE:  PPRESS.DAT 
ANGLE OF ATTACK IN DEGREES - 6. 000 


BEESSURE DISTRIBUTION 


X CP 

Ш9878 25 339 
0. 9400 (06 
0. 8492 9070728 
0. 7242 0 2 
255773 80015 
0.4227 0,0180 
2758 0. 0680 
0 05 0:202 9 
0. 0600 0. 5547 
0۰2 O 9 15 
0. 0122 -2. 4438 
0. 0600 ο 0 
0 56 ظ2‎ 29 0 
0“ 5 EU OA 
0. 4227 το 5557 
ШБ5/73 2055095 
0. 7242 ο 
0. 8492 E 
0. 9400 0. 0706 
0. 9878 22229 


CD = 0.00721 612-40. 72235 0807 CMC4 =-0. 00398 


Sample problem 2: NASA LS(1)-0013 Airfoil 


DATA FILE: PPRESS. DAT 


ANGLE OF ATTACK IN DEGREES = 6. 000 


PRESSURE DISTRIBUTION 


X СР 
9500 0 6 
8500 O 0715 
7500 0. 0003 


6500 یس‎ 2 
72200 -0.10700 
. 4500 ο ο 


3500 950259 
2500 0. 1057 
1500 0.26277 
0877 0. 3930 
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0373 0. 6714 
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ο οὐ 


‚ 0065 σσ 


210275 <1.9576 
40625 21557509 
ον» -15 9023 
21500 21220520 
2200 -0783380 
. 3500 -0 0 
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5500 -0. 5094 
6500 ED 
7 0 “ο 07 
. 8500 070365 
0 О. 1566 
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CD = 0.00324 CL = 0. 69366 ОМ --0219505 CMC4 = 0.00750 
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PROGRAM PANEL 


SMITH- ЕЕ ЕЕЕ À PANEL METHOD 
FOR SINGLE-ELEMENT LIFTING AIRFOIL 
IN THO- BIMENSTONAL INCOMPRESSIBLE FLOW 


XOCCX XXX X HEHEHE HEHEHE HEHE HEHEHE HEHE HEHEHE HE HEHEHE HEHE HEHE HEHE HEHE HEHE HE HEE IEE HEHE HEM HEHE IEE HEHE HEE IEE IE HE HEN 65 
SUBROUTINES QUERY AND CLRSCRN ADDED TO ORIGINAL PROGRAM. 


THE FILE OPEN STATEMENTS WERE ADDED IN LIEU OF THE EXEC FILE 
METHOD USED ON THE IBM MAINFRAME. 


HHH HHH HH HH HH HH HHH HH HHH HH HHH HHH HHH HH HHH HHH HHH HHH HK HH KH HR KK KKKKKKKKKKRK 


ORIGINAL ۲ MAINFRAME PROGRAM WAS ADAPTED FROM m. MORAN'S BOOK 
'AN INTRODUCTION TO THEORETICAL E СОМРОТ ШЕШЕ. AER DDYNAMICS , 


А 
WILEY AND SONS, NEY YORK 1984. THE LISTING IS FOUND GE 11 
PROGRAM FLEXIBILIT: AND USER INTERFACE HAS REVISED FOR 
PROFESSOR J.V. HEALEY BY JOHN CAMPBELL. APRIL 1988. 


HK HHH HHH HH HHH CX HEH HEH HHH HHH HHH HH HHH HH HH HH HHH HH H HICH HK HH HEH HK HH HH HHH HHH HHH H 


THIS PROGRAM τα, THE BODY COORDINATES AND THE. SURFACE 
D LE na A SINGLE ELEMENT LIFTING AIRFOIL 
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OR AN INPUT 
OU HILL BE AS 
E 


E DATA STATEMENTS REQUIR HAT PR ИВЕ 
MODIFIED IN ADVANCE BY MOVING THEM TO THE CORRECT LOCATION. 


ИИИ как к 
Е 
DIMENSION Z( 100), X(100),Y(100) 


xxx NOTE: IF YOU CHANGE SIZE OF X AND Y, CHANGE N BELOW А1501 Xxx 


DATA X, Y /100%0. ,100%0. 

COMMON’ /BOD/ 167 СО5ТНЕ! 1001,5 1 
COMMON ΖΡ TAS Ер5бМАУ,РТМАУ 
СОН С ТАНЫТА 

COMMON “NUM V 
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SINTHE( 100 );,NFLAG 


хх хы 
IF USING DATA STM 
xx* FOLLOWING DAT 
DATA NUPPER МОй 
ATA (X(I),Í= 216 
05107 


HH HH HHH HH HH HH MH HH HHH HH HEH HHH HH IH HHH X KEK XX XX 
R X AND Y VALUES, PLACE LINES HERE. 
THE NASA LS(1)-0013 AIRFOIL ж 


/ 
:80 5.705.605 :505. z0, 
ἀνθ! 01301,0 9202520 "069251 9: “07498, 


E 5ЁТ TO 0.000 VS ACT THICKNESS x 


C 
1 
( 
x 
1 


Оооо 


тоон 
DED zUUXx eoo» 


о 
іл 

Mir 

-ι 
© 
N 
С 
іл 
г. 
о 
£ 
= 
D 
о 

! 
ο 


‚01938, 2 65, . 04541, 
GG 
жж ΠΟ THAT N CORRESPONDS TO THE SIZE OF X AND Y DIMENSION xx 


HHH HHH HK HK HH HHH HHH HH K EK HK HH FH HHH HH HH HEHEHE HE HHH HK HHH HK HHH HHH HK HHH HH HH HHH HH 


оо о 0 


53 


«ылымы. салы ы; ہے‎ = = 


а) 


=ч ж = = 
© ж ж ж - OO 
e Жж κ - uz 
=й a ж ж . ۷۸ .. сн 
= - οκ ουκ о” = ۷۸ H2 
=J .. O x x ш ° =. ш 20- 
ee o کہ‎ K x шш = حم کی‎ = ΟΣ » 
ш ж ж OO N pde! e = ul z- 
= -- = +X ж dd < Om «t1 - > O — 
3 сс H - н Ж X μμ. сс > ч < > о ӧн 
ш ш L = ο κ.ο.κ DELE ul سم‎ = шщ = 
m о O ш ж ж = о - «t «tL << ш O2 HL < OZ 
а. ч O H ж ж qx «t1 = - = 0 о لیاں ب۰ تنا سم‎ 
22 = ш = = о ж ж ш - О «(ІН < 2 О ہے‎ 
< < X - 2) = ж ж DE I es) OX- 2ئ‎ т тет 
о ΞΕ Z ош ж ж 22 шш>- нчи. Он O H шж> ш 
о. Б ш шк O x x O eO C (9 5 - © uo о x O 
. - e eœ oO x ж © оао < ои. ш к-а.ш. о С > -ας) ) 
< < -ἡ = xr ж ж E DÓ ہم لے‎ Ос.) dom с 8 Oui uz 
° e^ a о н 20 ОЖ Ж СЕ Im Z= < < «ҥш 
=) к -~ Ω. С HH ж ж са ZZW pus et کے ہم کے ےم‎ О O wOr ہے ےہ‎ 
u u + 3 < ж ж өн оо ^ ш ۸۵ oz e cz o 
> б. йш zZ ЕЕ т Ж Ὁκ ec H A Zt zou) cu > ш =- OOV) 
94) a aa ш Z Ow а ж ж سم‎ OMI о ш «ul Q uJ ο «жш 2 
لے‎ оа. т ш Ос - U K X шо шиш) © E = ына Ошо x < K  نل0‎ 
سرن‎ e = ш OD < ж ж он )ہہ‎ e سم‎ Wa. OFM ш. N) UIH 
ш) a “Z e 0 - - Ж Ж ΞΞ OO ~ ZUE σου ^ ac = +> 
oa с с^ ^ uc) БЕ Kok = 2.2.0 u = - «ο шо ш D - ZŁO ul 
رہ‎ = ш шо = ш Qui 0 б жшж Ош 2 qo کے‎ ш ад. әс) OW -= æj (" -ш«ОоОс: 
<q) =) x xul ш > «СО - ш жшж © uu.) = ш Z Z < ° кч 20” юа. 
0 а. о о ш ч иа کے کے‎ u κα 20Ο lere Z u < “πηι uu ہے‎ u шыш со 
0 E а c) ac -- Ες 20 кт жасж OZ о HX о. (ғ σος =-—<( — Ou 
шш ^ ^ LE с әш ے0‎ O жож о O20 uo аш => a «Х سر جم ےہ >> ن رس‎ 0 
ال‎ >= ο > = о ^ об о NO e u KK ас πα 42-49 Z JZ NZX = μια. σμ. 
P «t 3 2) ВС о Z IA So t= «Х aco) O xX ax = ma “ык «Y (uL шхо «Х кт xU) zul- 
uz «t к « μια” eJ ^ “Z ш - >и. - шшщ жж ua ا اد‎ OC о 2-10 کال ۔‎ с о wau uc 
H нн ^ Ζ EB ^ а.ш > > = T ШӘ) (е Pus το 2 жшж O 2o © کہ‎ © Owm Hoda be oa ч ҥш 
-о = - ыш = - са. о O GP к= @ OD = = ہم‎ KEK ^ ZZ х Ο οι оао - » σα кою 
шо) Т ои ні = NW Da = X Xa ш 00 ac Quo) XOX wo Ə са — «t с ш и. «Сшға 0 шош< О < м 
ао Wwe ل‎ ω ш- J 29 ОО ^ “Хх ec ec “Тг о << жж со Qh шо а. Ш СОЕ e το ساےہ‎ 
۲۔ح‎ jo اس‎ aDJ a, ООО. فا‎ ~ ч ” О-ат- о Т ЖЖ шн Z Pd эф“ YOST Ono b LL Ode wane ھا‎ 
JO  *'C«-1 6-и - Ode ^^ n5 Ord Ju. ш μα `° LU = سم‎ а жеж ee HOO Haw лг eat a O - от 0 
0 - WH- = ا‎ WHH- =- μια “44 > لے‎ e) ш E ш ОЛ O Ὁ Χο μα шы 0 Mui لی‎ WHO u = Ou کے س] سا ے نے سے‎ O 
мш кок-аотгам αι ο” =u یم یہر‎ (<t ο = - Іхо e a жж I к= а.ч m) О ο τωι TUDO * «<A TOO «x^ P= 
۳ یں‎ «- ГашсО о- ашы ОЛ aao OW < O Hazem Kk are MOQ = u OD I O «QOO «d ὠωσωώσπταου 
24 о ш>к-ос .-ы>-Оо O жж OO 0 a اسم‎ & ҥ®шО О ے‎ x ^X fH بہرہ‎ <t “(МІ “πο та στι. L нии. Эно O 
au "D- eZ NID- -Z z- maaa ^) к= «t «tX < x (CU που πο EZ5 шын = = Z ^ xU xd ^ (5 
ae го аш О ах <2 гг wa x= ao —— а жек а (— ο” нее m >! — s (1 
H2 OOunlilü шоши Ze ouo -uw ш < >» WU DAN ^ 7 ж«ж к іе YN ча | eau LOZ DaN м O-k ۵۸ل‎ Qo 
() оношаос22 ًّالناہ ےت‎ ег <(0-2.2<(Х ш) 2 č >N SO ZNT ہم‎ žek TO ul = ніш OOZ Nur O min 0 ads 
о“ Q)ü-- QO- ar- a0- >a I ччы 24 ہے‎ Qo aw < > ш >>) ul u) - «27.7 OCH > Lu J SO, > LU oJ 
ο» ға«4 >ш (Лл ға« >ш A а-ы нг = о ош ao I- «X - жож ou 2 а مسہبہےمرںہ‎ 21 ныс — u 
WO- Nile- HUN- NIe- i Xa JAZU ON = ЕЕ mo 0 σσ ο ο και ze шо = O 22 ч O гно 
Оч MVO UZA πιο Ὁ ~X «(9Ο 6) OZ а ап. оо μι ο N XWX —LOZANN OZ о ш о 2 о ш ш 
дани нда. и и 20701 ә < ONT =U oca к ul NOS ok > Zc να” tno m . 
ш м-ш«ШОгһ- шашою а.о NYA Q = -- 2». x FUR “д шО oO = tm = ol) ------ qu 
Ζω ں ں قلل‎ «0 HLIODOOC «dX 9صئ۱‪ن ۱۱۶۱ ۱۱ >> ٭۶۶ہ(>‎ xU zt [o2 N AZK -ZN Yarn жо ( жо 
Γη HOLOLUuIOFO;LHGOOQuiOFR- OO ^X LOZ Owo a a AA O AANA N ЖЕЖ Z WK NNO a ARR RARA AA HHL € ^ ^ оу о\ оу ^ ^ ^< 4 
ا‎ DL O AOL NL DUO AZUN ZUANA OU UMD K eK KKK KARA KKK ADD — mE س‎ 002 «< жжжжжжжжжжжжжжиал- 2 жжжжжжж ж жал 
- — HA) —-Ju.&.(QQO02u- ZZQ - O< e ЖОЖ xuiQul« 7777040 w HO لات‎ 
(ош ш = doy Она ererek ereke Zo XOX О«ХООООО БББ OF ereket πι 
= = gz dad Z Om AA a e کے کے کے لاگ کے سے لے کے کے‎ ес KEK SWAT Γη ών ee eee старды لا ہے کے ہے نے سے بے ہے ہےر‎ 
Еш FALLI یریب‎ Yao Z dH AAR Оск с ж «( I— «11— (0237 2. 2 1-4 IL IPLA ILI ILIA IRL IRA IR IR ILI < Ончыч чнч 
zua wua «i«Y0Oculjü.Q m««x«X«(OO azxg оС Аи. - ОГ КО ж ШГООО “O O2 O2 O2 0¢ O2 O4 OZ O OZ O O2 O2 O2 UJ O ac «c oc ac ac oc o2 oc o2 oc oz uuu 
O O O ں ۱۳ں‌ں‎ ооо оасшапсопасшао ааа. а.а. ончи. KUK QfH4XQHAQOQO-20Q.00000..00ao0.0a0adodcdnuo ()α.α.α.α. Ο.Ω. Ω. Ο. Ο. nrm 
-Z NNNNNNZ NNNNNN 22) x x ل‎ ж 
Jiu ш < ӨЗ Ж x <i жо e 
oa a о о Qu O ж Ж Q X n -4 
uO O хы © о O ж ж ж 
rA لہ‎ rA 
OO O о о Oo ω «ως ωω 9) O о 


54 


IF [IFLAG .1Т. 1 ο. IFLAG .GT. 2) THEN | 
PRINT x, 'INVÁLIO ENTRY. ENTER 1, 2› ОВ 3. 
CO TO 12 
END IF 
Te CIFLAG EQ. 2) 100 
xxxx CUE THE USES TO ENTER TOE NUMBER OF DATA POINTS (NUMPTS) 
15 CÁLL CLRSCRN 
PRINT X 
PRINT κα, ‘ENTER NUMBER OF DATA POINTS' 
READ *, NUMPTS 
xxxx ECHO CHECK THE INPUT | 
БЕТТ х, "МОМБЕК ОР DATA POINTS TO BE ENTERED =',NUMPTS 
PRINT ж,"15 THIS VALUE CORRECT? (YES=1, NO=2)' 
READ X, Ml 
IF (Ml .GT. 1) GO TO 15 
CALL NODES(NÜMPTS ,NLOHER ,NUPPER ) 
C xxxx SEND CONTROL TO AA OMER OE OR KEYBOARD ENTRY ROUTINE xxx 
GO TO (20,30,100) IFLAG 
X X 3€ € 3€ 3 3€ 3€ 9€ X: 3€ X Ж уж 3€ 36 9€ € CLE 00 € XC € € 9€ € E € 9€ € 9€ 9€ 9€ 9€ 3€ 9€ X 9€ 9€ € 9€ 9€ € 3€ XX 3€ 9€ 9€ 9€ 39€ 9€ € 9€ 9€ XX 9€ 9€ 9€ 9€ 3€ * 


E Xxx DATA FILE READ ROUTINE 
E LIBSGET INPUT IS A VAX LI 
C 


BRARY ROUTINE. IT MAY BE REPLACED BY AN 
EQUIVALENT WRITE/READ TO GET THE FILENAME INTO THE PROGRAM. 
20 STATUS = LIBSGET_INPUT (INFILE, The input file 
2 ‘ENTER THE DATA FILE NAME: °, Prompt | 
2 INFILE SIZE) Filename size 
C CHÉCK TO SEE IF THE FILE EXISTS BEFORE TRYING TO ACCESS IT 
BESCINFILE .EQ. '999*) GO TO 5 
INQUIRE (FILE > ІМЕІ Е (i:INFILE. SIZE), EXIST = EXIST) 
IF (.NOT. EXIST) THEN 
PRINT x 
PRINT X, ' THAT FILE NAME DOES NOT EXIST.' 
PRINT x, ' (ENTER 999 TO RETURN TO MENU). ' 
PRINT ж 
GO TO 20 
END IF 
C OPEN FILE FOR SURFACE COORDINATE INPUT 
OPEN (UNIT=13, 
2 FILE= INFILE;, 
2 ORGANIZATIGN= ‘SEQUENTIAL’, 
2 ECCESS= ‘SEQUENTIAL’ 
2 RECORDTYPE= 'VARIABLÉ', 
2 FORM= 'FORMATTED', 
2 STATUS= ‘OLD') 
DO 25 ^ I = 1,NUMPTS 
READ (Z,X) X(ID,YUI) 
RINT 1010, X(1),Y(L) 
25 CONTINUE 
1010 FORMATIF10. 6 ,F10.4) 
GO TO 100 


Хх жж ХХ ХХ ЖЖ EX X EXC E Ж CC CE HEHE HEHE IEE HE HEHEHE HEHEHE HEHE HEHE HEHEHE FEE IE IEE HEHE HEHE HEHEHE 
C *xx* ROUTINE TO ENTER DATA FROM THE KEYBOARD »exxx 
50 ET ιτ 


HH HHH HHH HIE HHH HH HIE HH HHH HH HHH HIE HEHEHE HEHEHE E E E E HEHEHE IE IE IE IE HE IEE FEE IE IE IE IE IEE IEE IE HEE HIE 
С "50 CALL CLRS DES ۴۶ SHAPE, GIVEN NACA NUMBER sex 


PRINT 
PRINT κ, ' ENTER NUMBER OF SURFACE DATA POINTS DESIRED' 
READ w, NUMPTS 

xxxx ECHO CHECK THE INPUT 
CALL CLRSCRN 
PRINT X,' NUMBER OF SURFACE DATA POINTS TO BE GENERATED =',NUMPTS 
PRINT x,' IS THIS VALUE CORRECT? (YESz1, NOz2)' 
READ ж, М1 
IF (Ml .GT. 1) GO 10 
CALL HODES(NUMPTS, ,NLOWER „МОРРЕВ ) 
PRINT *, ' INPUT NACA NUM3ER, ANY FOUR-DIGIT OR 230XX SERIES’ 
READ (5,x) NACA Ἢ 
IEPS = МАСА/1000 
ІРТМАХ - МАСА/100 - 10%1ЕР5 
ITAU - NACA - 1000X*IEPS - 100жІРТМАХ 
EPSMAX - ІЕБ5х0.01 
PTMAX = IPTHAX*0.1 
TAU = ITAUx0.01 
IF (IEPS .LT. 10) RETURN 
PTMAX = 0.2025 
EPSMAX = 2.6595*xPTMAXxx3 

100 RETURN 
999 STOP 

ND 


FEF HHI HK HEH HK HEH HK HH HIE HK HH HIKE HEH HHI HK HK HK HHH HH HH HHH HK HK HEH HE HEH HEH 9€ 3€ 9€ E E 3 3C E E EE E E HEHE HH HH 


SUBROUTINE NODES(NUMPTS »,NLOWER ,NUPPER ) 
κκκκκκκκκκκκκκκκκκκκακκκακκκκκκκκκκκκακκκκκκκκκκκκκκκκκκκκκκκκκκκκκκκκα 


C X339 re NLOWER AND NUPPER FOR LATER USE *xx 


PR 
PRINT - ARE THE NUMBER OF UPPER AND LOWER SURFACE‘ 
PRINT *,' DATA POINTS( NODES?) EQUAL? (YES=1, NO=2)' 
READ *, М1 
Peer? EQ. THE 

NLONER = NUMPTS/2 

NUPPER = NLOWER 
ELSE 

CALL CLRSCRN 

PRINT * 
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PRINT *, ' TOTAL NUMBER OF SURFACE POINTS z', NUMPTS 
OORT "e 2 
PRINT *, ' INPUT NUMBER OF LOWER SURFACE POINTS, NLOWER' 
REED (5,*) {LOVIER 
PRINT Χ» ' INPUT NUMBER OF UPPER SURFACE POINTS, NUPPER' 
READ (5,%) . NUPPER 
NTEST = NLOWER + NUPPER 
IF (NTEST .NE. NUMPTS) THEN 
PRINT ж, " OKAY, TRY IT AGAIN EINSTEIN. REMEMBER ADDITION?' 
7 O ' LOMÉR * NUPPER MUST EQUAL ' ;NUMP TS 
END IF 
END IF 
ΕΗ 


EN 

хх к X X X XX X XX XX X X XXX X Xx XX X X XXX X XXX X X XXX XXX XXX X XXX JXxX3Xx33X 
SUSBROUTINE INPUT(A;B,;N) 

HHH HHH HHH HK EHH HH HHH HII HHH E HEKE XK E KE EE E E E E E E E E E E E E E E E E E E E E KC E EE E E E E XC XE XXE 


к 
2. 
-- 
гп 
б) 

Am 
ж 
2. 


DIMENSION AIN), ВОМ) 
xxxx CUE THE USER TO INPUT X VALUES 
10 PRINT х, "ЁМТЕР X VALUES AS MANY PER LINE AS DESIRED! 
READ x, LACI), I = 1,N) 
xxxx ECHO CHECK THE INPUT 
PRINT 20, N 
20 FORMAT (71X,'TABLE OF', IZ,' X VALUES: '71X,21( 'z' )) 
PRINT 20, (А(1), І-1,м) 
20 FORMAT (1X,2F10.6) 
PRINT *, ‘ARE THE VALUES CORRECT? (YES=1, NO=2)' 
READ w, J1 
ТЕ (11 el. 1) СО ТО 10 
xxxx CUE THE USER TO INPUT Y VALUES 
Z5 PRINT یر‎ ENTER Y VALUES AS MANY PER LINE AS DESIRED! 
READ x, (B(J), J=1.N) 
xxxx ECHO CHECK THE INPUT 
PRINT 40, N 
40 FORHAT (/1X,'TABLE OF', I3,' Y VALUES:'/1X,21('=')) 
PRINT z0, (Bt JJ; 2-1,М) 
PRINT κ» ΑΒΕ THE VALUES CORRECT? (YES=1, NO=2)' 
READ κ, K1 
IF (Kl οτ νο ο 5 
RETURN 


EN 
C хх ХХ ХХ ХХХ 
SUBROUTINE SETUP(X>Y ,N;NLORER ,NUPPER ) 
C ТТ ee 
X ( 
COMMON /BÓD/ NODTOT.COSTHE(100),SINTHE(100),NFLAG 
MMO UM INV 
RO,YMULT 
26585 
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SET COORDINATES OF NODES ON BODY SURFACE 
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LOPES OF PANELS 


HHN 


00 C 
000 FORMA 
010 


XXXX XXX XXX XX XX XX X%4X X%4W3 XX XX3 € XC X € € CC € € XC XC 9€ € CC € € € C XC HE HEH HEHE € € ¥ 3€ 3€ € 3€ 3€ HHH HHH HK 


SUBROUTINE BODY(2,SIGN,XI,YI) 
κχκκκκκκκχχχκκχκκχχχκχχχκκχχκχχκκκκχχκχκκκκχχχκχκκχχχχχκκχχχκκχκκκκκχκκ 


ς 
С 
Е RETURN COORDINATES OF POINT ON THE BODY SURFACE 
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€(0 000 O O 


100 


110 
120 
130 


140 


150 


OOHO 


4 
<. 


ххх ххх ж KCKE EE E EE E KE E E EC EE EC E E E E E EE E E EE EC EC 3536333 33 


SUBROUTINE NACAG5(Z,THICK ,CAMBER,BETA) 


X XXX CC XXX X HK HHKF KKH KKH KH HKHKHKHKHHHKHKRHKK HK HH HKHHHH HHH HH HHH HH HHH HH HH HHH HH 


COMMON /PAR/ NACA,TAU,EPSMAX »PTMAX 


EVALUATE THICKNESS AND ۲ھ"‎ 


ER 
FOR NACA G- OR 5-DIGIT AIRFOIL 


THICK = 0.0 

IZ .LT. 1.E-10) TO 100 

THICK = Б.ЖТА0ж( ,2969%50ЕТ(2) - 126 + Zxt .S537 
Zx (286 s= 1015)))) 

IF (EPSMAX .EQ. 0. GO TO. 130 

ІҒ (МАСА .бТ. 9999) O TO 140 

IF (Z .GT._PTMAX) GO TO 110 

CAMBER = EPSMAX/PTMAX/PTMAX*(2.*xPTIMAX - Z)*Z 

ο πο ορ 2.XEPSHAX/PTMAX/PTMAXX(PTMAX - Z) 

CAMBER کے‎ EPSMAX/L1.-PTMAX)X*x2x(1. % 7 - 2.ҰРТМАХУЖ(1. - 2) 

ОСАМОХ - 2.ЖЕР5МАХ/(1.-РТМАХ)жж2Ж(РТМАХ - 2 

ВЕТА = АТАМ ОСАМОХ) 

RETURN 

САМЗЕК = 0.0 

ВЕТА = 0.0 

RETURN 

IF tZ .GT. PTMAX) GO TO 150 

А = 2/РТМАХ 

CAMBER = Еремин Он - 3.)*W + 3. - PTMAX) 

ОСАМОХ = ΕΡΟΙΊΑΧΧ5.ΧΛΧί1. - WI/PTMAX 

GO TO 120 

CAMBER = EPSMAX*x(1. - Z) 

DCAMDX 2 - EPSMAX 

нето 120 
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SUBROUTINE COFISHLSINALF ,COSALF ,X,Y ;N;NLOWER ;NUPPER ) 
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SET COEFFICIENTS OF LINEAR SYSTEM 
REAL ΑΟ 


COMMON /BÓD^ HODTOT;COSTHEL100),SINTHE(100),NFLAG 
OION ZCOF/ A( 101,111) ,KUTTA 
COMMON ۷7 pr BFT 
KUTTA = NODTOT + 1 
INITIALIZE COEFFICIENTS 
DO 90 J = 1,KUTTA 
А(КОТТА,)) > 0.0 
SET VN = 0 AT MID-POINT OF I-TH PANEL 
DO 120 I = 1,NODTOT 
XMID 2 .BX(X(I) * X(I41)) 
AID = DBXx(YCUI) + Ү(Ї+1)) 
A(I,KUTTA) = 0.0 


FIND CONTRIBUTION OF J-TH PANEL 


DO 110 J = 1,NODTOT 
FLOG = 0.0 
ЕТАМ = pi 
ШЕШЕ! EQ. I) GO TO 100 
ر×0‎ Z'XMID - XÎJ) 
DX JP - SMID - XLJ«1) 
DYJ - VMID = YJ) 
DYJP = YMID - Y(J41) 
FLOG = ,BxALOG! ( DXJPxDXJP 4DY JPxDY JP 1/{ DXJ¥DXI4DY JXDYS )) 
ΕΤΑΝ = AÁTAN2UDYJPXDXJ-DXJPXDYJ ,DXJPxOXxJ«DY JPXDYJ) 
CTIMTJ - COSTHELI)XCOSTHELJ) * SINTHE(IOXSINTHELJ) 
STIMTJ = SINTHE(I )*COSTHE{J) - COSTHE(CIOXSINTHE(J) 
ACI J) c PI2INVX(FTANXCTIMTJ + FLOGXSTIMTJ) 
B = PIZINV*(FLOGCTIMTJ - FTANWSTIMTJ) 
ALI,KUTTA) = ALI,KUTTA) + B 
ТЕ {СЇ .GT. 1) .AND. (I .LT. NODTOT))GO TO 110 

-- IF I-TH PANEL TOUCHES TRAILING EDGE, 

ADD CONTRIBUTION TO KUTTA CONDITION 

А(КОТТА,Ј) = A(KUTTAJ) - B 
А(КОТТА,КОТТА) = ACKUTTA,KUTTA) * ACI,J) 
CONTINUE 

FILL IN KNOWN SIDES 
ACT ҚЫТТАғ1) - SINTHE(I)JXCOSALF - COSTHE(I)XSINALF 
ÁCKUTTA;KUTTA*1) 2 - (COSTHE(1) + COSTHE{NODTOT ) ۰0۶۴ 
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20 
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50 
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RETURN 

END 
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- (SINTHE(1) * SINTHE( NODTOT ) )*XSINALF 


SUBROUTINE GAUSS(NRHS ) 
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SOLUTION OF LINEAR ALGEBRAIC SYSTEM BY 

GAUSS ELIMINATION WITH PARTIAL PIVOTING 
CA = COEFFICIENT MATR БС 
عو‎ - МОЛЭЕВ ОҒ ЕОУАТІС 
NRHS = NUMBER OF RIGHT HAND SIDES 
RIGHT-HAND SIDES AND SOLUTIONS 2-0-20 IN 
COLUMNS NEQNS+1 THRU NEQNS+NRHS O 


ΠΠ "SO нс ун 7 »NEQNS 
NTOT NEQNS + NRHS 

GAUSS REDUCTION 
DO 150 I = 2,NEQNS 


-- SEARCH FOR LARGEST_ENTRY IN (I-1)TH COLUMN 
ON OR BELOW MAIN DIAGONAL 


St 
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VEU 
(ACJ,IM))) GO TO 110 
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I 1 
IM 

АВ5(А(І 
= I,NEQ 
‚СЕ АВ5 
АВ5(А(.), 
== SWITCH (I-1)TH AND IMAXTH EQUATIONS 
IM! GO TO 140 
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x l uc. 
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TE (I-1)TH UNKNOWN FROM 
U (NEQNS )TH EQUATIONS 
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SUBROUTINE VELDIS(SINALF ,COSALF ,X,Y ;N,NLOHER ;NUPPER , ALPHA) 


E E EE EE EE KE иН НХК Н ИЭ ЕЕЕ 


COMPUTE AND PRINT OUT PRESSURE DISTRIBUTION 


AL XUNY,YGN) 


МОМ / /BOD/ N 0),SINTHE( 100 ),NFLAG 


= VEVKONNNNOD 


(12,1005) 
RETRIEVE SOLUTION FROM A-MATRIX 

= 1,NODTOT 

А(Т?КОРТА+1) 

A(KÚTTA,KUTTA+1) 

FIND VTAND CP AT HID-POINT OF I-TH PANEL 

= 1,NODTOT 

۳ M 
SEVA) + Yi 

COSALFXCOSTHE 


ADD CONTRIBUTION 


x 
= 
H 
0 
"on dnd M 


І» 
I+ 
(I SINALF*SINTHE(I) 


1)) 
1)) 
) + 
ОҒ J-TH PANEL 


00 120 J = 1,NOOTOT 
FLOG 5 0.6 
FTAN = рі 
TF (J EQ. T) CO TO 100 
OXJ =`ХМ10 - X(J) 
DX JP = YMIO - X(J41) 
0ҮЈ = YMIO - Y(J) 
ΟΥἿΡ = YMID - Y(J*1) 
FLOG - .5XALOG((LOXJPXOXJP4OYJPXOYJP )/( OXJXOXJ40YJX0YJ ) ) 
FTAN = ATAN2(0YIPXOXJ-OXJPXOYJ , OXJPXOXJ+0YIPXOYS } 
100 CTIMTJ = COSTHE(I)JXCOSTHE(J) + SINTHE( I J¥SINTHE(J) 
STIMTJ = SINTHE( I IXCOSTHE( I) - COSTHE(T IXSINTHE( J) 
АА = PIZINVX(FTAN>CTIMTJ + FLOG¥STIMTJ) 
B = PIZINVx(FLOGxCTIMTJ - FTANXSTIMTJ) 
VIANG  - VTANG - BXxQ(J) *GAMMAXAA 
120 CONTINUE 
CP(I)  - 1l. - VTANGXVTANG 
C CALL PLOTXY(XMIO,CP(I)) 
PRINT 1010, XMIO,CP(T) 
WRITE (12,1010) XMIO,CP(I) 
130 CONTINUE 
1000 FORMAT(/////,' ANGLE OF ATTACK IN OEGREES = ',F8.,3 
1005 FORIIAT(//>' PRESSURE OISTRIBEUTION' ,/7,6X, 'X' ἀκ; Id 77 
1010 ҒОРМАТ(Ғ10.4,Ғ10.4) 
RETURN 
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UBROUTINE FANOM(SINALF ,COSALF ,X,Y »N,NLOWER »NUPPER ) 
HI HH JE E JE JE HEHEHE CX CX CX HER HEH E E HE JE JE DE EE E FE JE JE FE DE JE FE JE JE JE E JE XE EE E E JE JE XK EE E E EE E 3E JE JE E IE E FE 


c 
C 
C COMPUTE ANO PRINT OUT CO,CL,CM 
REAL ХАМ), Ү (М) 
COMMON /BÓO/ NOOTOT ,COSTHE(100),SINTHE(100),NFLAG 
COMMON /CPO/ CP(100) 
CFX = 0.0 
CFY = 0:0 
CM = 0:0 
CMC4 = 0:0 
00 100 I = 1,NOOTOT 
ΧΜΙΟ = Бх(у(І) + X(141)) 
YMIO = بپ بے‎ € vtIT*1)) 
Ox - XUI*1) - X(I) 
ΟΥ - Ү(181) - Ү(І) 
CFX = СЕХ * CP(I)XOY 
CFY = CFY - ЄР(Ї )#0Х 
CH = CM + CELI )x(OX*¥MIO & OYXYMIO) 
CHC4 - CMCá * CP(I)JX(OXXUXMIO-0.25) 4 OYXYMIO) 
100 CONTINUE 
CO - CFXXCOSALF + CFYXSINALF 
CL - CFY«COSALF - CFXX*SINALF 
PRINT 1000, CO,CL.CHM,.CMCÓ 
WRITE (12,1000) CD ,CL SCM, CMCG 
1000 ҒОВМАТ(/7272,! б60:57,Е6,5," CL =',F8.5,' CM =',F8.5, 
' CMCG -',F8.5) 


= 
rn 
- 
C 
2 
سے‎ 


C EIE JE JE EK IE CX X € X € C X X C CC C E EE C EXC C E € € XC € € E E E € € JE € E E E € € E E E EE E 9€ € E 3€ € 3€ 3€ 3€ HEHE IEE 
SUBROUTINE CLRSCRN 


C EIEE EIE JE JE JE E JE JE DEI JE JE JE DE PE JE © E E EE E EE EE Je E JE JE JE JE JE JE JE E E E JE JE JE JE JE JE JE JE JE JE JE JE € 3€ 3€ € 3€ 3€ 3€ 3€ 3€ 0€ 0€ FE € 3€ 0€ 3€ 
LIBRARY ROUTINE TO CLEAR THE SCREEN. 


І5ТАТ = LIBSERASE, PAGE (1,1) 
RETURN 


OGOGO 


t 
Q30(XOOCXCXCX X M3CX X X € CX 3€ X 3€ X 3€ E E € EC 9€ E E E E E E E E KE € X CC 9€ € 9€ € € 9€ € 9€ € € 9€ € 9€ € 9€ 9€ € 9€ € € 3€ € 9€ € € 3€ 


SUBROUTINE QUERY(NANS) 
KE EE EE XE JE JE JE Je E FE JE JE JE JE JE JE FE JE JE JE JEDE JE DE JE € XC HEH OX XC E E E EE E E E E EE E EE EE JE JE JE E E E EE 3€ 3€ € 3€ 3€ 


ROUTINE TO TRAP ERRORS CAUSEO BY PEROT ER DE EE TO QUESTIONS. 


ООООО 


THE COMPUTER GENERATES, AND ERROR WHEN A CHARACTER IS SUPPLIEO TO 
A QUESTION EXPECTING BN INTEGER OR REAL VALUES 
NQTEST=0 
1 CONTINUE 
ТЕ (NATEST .GT. 0) THEN 
PRINT x, ° CHARACTER VALUES ARE NOT VALIO.' 

eno? RENT x, ' PLEASE ENTER A VALUE OF 1 OR 2 ' 

NATEST, = NOTEST + 1 

REAO Б ЕБІ ума 

RETURN 
C 3€3€3€ 3€ 3€ 2€ 3€ 3€ 3€ 3€ 3€ 29€ 9€ X€ 3€ 9€ 3€ 3€ 3€ 3€ 3€ 9€ 9€ 9€ 9€ 9€ 9€ 9€ 3€ 3€ X XX X وعد‎ 3€ 9€ 9€ 9€ X€ 9€ 9€ 3€ 9€ 3€ 3€ 3€ 2€ 3€ 9€ 3€ 269€ 9€ 3€ 3€ 3€ 3€ 3€ 3€3€3€ 2€3€3Y€ 2€ 3€ 
C OATA VALUES FOR VARIOUS AIRFOILS. TO USE, REMOVE COMMENTS 
C ANO PLACE AFTER COMMON CAROS IN MAIN PROGRAM. 
C 33€3€ € € 9€ 3€ 9€ 9€ 3€ 9€. 9€ 9€ 3€ € X 3€ € 9€ 3€ 9€ 9€ 3€ 9€ € € 3€ € 9€ X 3€ 9€ X: 3€ 9€ € € E € 2€ 9€ X 9€ X 9€ 9€ 9€ € 9€ € 2€ € 9€ 3€ 3€ 9€ 3€ X 2€ € 23€ 3€ 3€ 2€ 2€ 3€ 
Č xxx FOLLOHING OATA IS FOR THE NACA 0006 AIRFOIL xxx 
C OATA NUPPER NLOHER, /14, 
C ОАТА НУ ,iz1 1-0.. ου. 80,. 40.30 .20,.10, 
C ; 10215! 825,0. 0125, 0,0,0, 0125100022 7 O75, 
C 2280510, .20,.30,.60,.5 i202: so 507 
C oux NOTES VALUE POR АТО 160 ÉOGE' 1S SET TO 0.000 VS ACT THICKNESS » 
C DATA (Y(I),1-21,20)/-.00062,-.00726,-.01212,-.01822,-.0228 
C 1 -.02667,-.02902,-.02001,-.02869,-.02241,0.0,.022415.02869, 
C 2 '05001 1.025027 0204710228 01832, .01212, .00724/ 
C 3€3€3€ 9€ 3€ 3€ 3€ 3€ 3€ 3€ 3€ 3€ 3€ 3€ 3€ 3€ 3€ 3€ 9€ 9€ 3€ 2€ 3€ 3€ 3€ 9€3€ 9€ 9€ 3€ 9€ 9€ 9€ 9€ 3€ 29€ 2€ 2€ 3€ X 9€ 3€ 3€ 9€ 29€ 9€ 9€ 2€ 9€ 9€ 9€ 29€ 3€ 3€ 3€ 3€ 3€ 29€ 3€ 9€ 9€ 9€ 3€ 2€3€ 2€ 3€ 3€ 
C xxx FOLLOWING OATA IS FOR THE NACA 0012 AIRFOIL xxx 
C OATA NUPPER, NLOWER /16,14/ 
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APPENDIX C. PROGRAM YORLAT USER’S MANUAL 
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Introduction 

The purpose of the VORLAT program i1s to provide an application of the vortex lattice 
method for the determination of the lift distribution of a flat rectangular plate. This 
method is based on a distribution of discrete horseshoe vortices over a wing surface that 
has been divided into a finite number of panels. A system of linear equations is devel- 


oped for the vortex strengths on the panels and solved by matrix methods. 


Assumptions and Limitations 

This program is limited to flat rectangular wings. The program divides the wing up into 
panels using either a uniform grid or cosine spacing method. The cosine spacing algo- 
rithm provides a finer grid near the Wing tips where the pressure distribution over the 
Wing is rapidly changing. Both methods incorporate an enhancement whereby the pan- 
els do not extend to the wing tips, but only to a distance of à. from the tips. The value 


of ó 1s the spanwise width of a wing panel. 


The solution is determined for conditions of incompressible and inviscid irrotational 
flow. Since we are considering an inviscid fluid, the coefficient of drag provided in the 
results is for the induce’ drag component onlv. This program is intended to be used for 
the analysis of flat rectangular wings with low aspect ratio. High aspect ratio wings are 


better analvzed using a method based on the hfting line theory. 


Input Description 
There are very few input values required for this simple program. Their description and 
program variable names are listed below. 

AR - Aspect ratio of the wing. (SpanY. Area 

NX, NY - Number of vortices in the X and Y directions. 

ALPHA - Angle of attack. (Angle between the chord and the freestream velocity.) 


IOPT - Grid spacing option. Uniform grid or cosine spacing. 


Input Restrictions 
The program, as written, is limited to 350 total surface vortices. This may be modified 
by changing the size of the arrays, however for the wings that this program was intended 


to analvze. this should be sufficient. The program will accept values for ALPHA up to 


45 degrees, but. as noted previously with program PANEL, the user is cautioned that 


values above 15 may be suspect. 


Sample Problem 

A sample problem will be used to illustrate the use of the VORLAT program. The run 
will be done using a flat rectangular wing with an aspect ratio of 2. The lattice will be 
created bv placing three vortices on the wing in the X direction and 5 vortices on the 
wing in the Y direction. The vortices will be distributed using the Uniform Grid spacing 


option and the wing will be set at an angle of attack (alpha) of 6 degrees. 


Starting the Program 
Degin with the screen showing the DCL prompt. which looks like this. 
$ 
Next, ensure that the program is in vour directory bv typing 
DIR [Return] 
mae. iewing the files for VORLAT.ENE and VORLAT.OBJ. If only the VORLAT.FOR 
file exists, vou must compile the program bv tvping. 
FOR VORLAT [Return] 
The next step 1s to link the program bv entering, 
LINK VORLAT [Return] 
The files VORLAT.EXE and VORLAT.OBJ will now exist and you will be able to run 


the program. 


Running the Program 
To run the program, tvne 
VORLAT [Return] 
The program will start and the screen should look similar to what is shown in 


Figure 24 


63 


PROGRAM VORLAT : VERSION & ١ ۶٢ 


VORTEX-LATTICE METHOD USED TO DETERMINE SPANWISE | 
LIFT DISTRIBUTION FOR À FLAT RECTANGULAR WING | 


ENIER THE ASPECT RATIO? 





Figure 24. Initial Screen for Program VORLAT 


Respond to the request for the aspect ratio bv entering 
2 [Return] 
Respond to the request for the number of vortices bv entering 
3.5 [Return] 
Now enter the angle of attack in degrees as 
6 [Return] 
Finally enter the grid spacing option. 
1 [Return] 


The screen is then cleared and vou will be presented with what 15 shown if Figures 


THE CURRENT VALUES ARE: | 


1) ASPECT RATIO . ЖЕГЕ 
2) NUMBER OF VORTICES. (NAGY) 3 Б 
3) ANGLE OF ATTACK (DEGREES) 6. 000000 

&) GRID SPACING: (1) UNIFORM, (2) COSINE - 1 


2. 000000 


THE CALCULATED PARAMETERS ARE: 


DELTA X 
DELTA Y 


03296898 
0. 1904762 


NUMBER OF EQUATIONS TO SOLVE - 15 
ARE THESE VALUES CORRECT? ρου ΙΙΞ. 


Figure 25. Data Review/Correction Screen 


If your display agrees with this, respond to the question by entering 


| [Return] 
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[f vou should desire to change anv values, enter 2, and vou will be asked which value 
. παπι ιο correct and the nen desired value. Following entry of the correct values 
and a positive response, the program begins the solution process. It returns with the 
coefficients of lift and drag at the indicated spanwise positions, as well as the chordwise 
center of pressure for those positions. Overall values for the coefficients of lift, drag. 
induced drag and moment about the leading edge are calculated and then printed out 
near the bottom of the screen. Don’t worry if vou miss some of the values as they scroll 
up on the screen. All the values are printed to both the screen and to the data file. 
The program now asks if vou want to make another run. Enter 

| [Return] 
You should now be back at the data review’correction screen and it should look like 
Figure 25. Now run the same wing, but use the cosine grid spacing. Enter 

2 [Return] 
You want to change the grid spacing, so enter 

4 [Return] 
The screen is automatically updated and you will see that the grid spacing has been 
changed for you also. Since there are only two grid spacings available. the program 
"knows" to chose the other and this saves vou the extra step of having to enter it. Not 
exactlv artificial intelligence. but it helps. You are again asked 1f the data is correct. 
As 1n the previous example, responding with a (1) causes the program to proceed to the 
output stage. The solution will be printed to the screen and appended to the data file 
which contains the data from the prior run. 
The program now asks if vou want to make another run. The session 1s finished, so enter 

2 [Return] 
This completes the sample problem for the VORLAT program. The data file created 


by this sample run and the listing for the VORLAT program are on the following pages. 
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SAMPLE PROBLEM OUTPUT DATA FILES 


Ἐπ UNIFORM GRID SPACING ** 








NX= 3 NY= 5 ASPECT RATIO = 2.00 ANGLE OF ATTACK = 0 
ү CECY) CDCY) ACPCY) 
07095 0. 32140 ο ο... 0572296 
(22656 005 0. 01215 0722061 
0.476 028791 0.011606 0. 21614 
0. 662 0. 24778 0. 01068 0. 20843 
0 557 0٦٣ 0700839 0. 19624 
CL = 0. 25620 
CD - 070105093 
CD/CL2 = 0.1601 
CMLE = -0.055004 
XCP = 0.21469 
** COSINE GRID SPACING Fx 
NX= 3 NY= 5 ASPECT RATIO = 2.00 ANGLE OF ATTACK = 6.00 
ү CECY) CD(Y) XC 
0. 045 0. 52155 0 01225 0. 22403 
0.210 0. 31734 0.01220 0522323 
0.476 0. 29243 0501170 0. 21844 
0. 742 1222256 0. 01055 0. 20690 
0: 907 0. 14330 0. 00733 0. 19607 
CL = 0.25927 
CD - 0: 0106156 
ΓΡ 2 - ο 1/5 
6۳1۷۷۶۳ “056552 
ХСР = 0:2 1586 
Co: к 
NOTE: CD OM = 2 F L Used to compare results to those for elliptic loading. 
L i 
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PROGRAM VORLAT LISTING 


PROGRAM VORLAT 


xxx MODIFIED FOR USE ON, THE ο ۶ ۶۶۶ ص‎ BY J.A. CAMPBELL (JUL 88) 


FINAL UPDATES MADE 14 SEP 88 
E CE JEJE JE HE JE JEME H IE JE JE ME AE E ME E KE JE E E € E 9€ E E E 9€ 3€ 9€ 9€ 3€ 362€ 3€ 9€ 3€ 3€ 9€ 9€ 3€ 9€ E E E 9€ 9€ E E E E E 3€ 3€ 3€ 3€ 3€ 3€ 3€ 3€ 9€ 3€ 3€ 


PROGRAM VORLAT : VERSION 4 G AUGUST 88 


GINAL _IBM_MAINFRAME PROGRAM WAS ADAPTED 
INTRODUCTION TO THEORETICAL AND COMPUTA 
ND SONS, NEW YORK 1984. THE LISTING 


ND 5 ЕК ІМТЕК 
Ү НМ САМР 


ACK MORAN'S BOOK 
bob СТЕ 


E ΠΡΙ 
T L 
POU D ON PAGE 15 
E 
8 


pas 
m 


OK 


ae HMO NG 
Z YDZOH ma < 
MOAGQMO O 
5 ΓΠΓΠ-ζΖΖ 6. Ὅτ 
OZ ZHU 
mo 
== 


YQ -1- 70270 OO r-ZH 
O 


> 
чы а от 
zm mH 
чн το ση” YS Pa 
OW OAONWNYS om 


rm уо "OOor-zomuo ° 
Zm Dee 


LEME 
RROR 
S WE 


5 А ENCES TO THEM; 
EVIOUS VERSION’ HAVE BEEN CHANGED TO 160, 170 AND 180. 
3€ 3€ 3€ € € € E XC E € FE JE JE IE JE JE E E E FE JE JE JE 9€ 9€ 3€ 3€ 2€ 2€ € 3€ 2€ 9€ 2€ € € 3€ 9€ E E E E E E E E E E JE JE JE 2€ 2€ 2€ 3€ JE JE E E JE JE FE JE JE FE FE FE 
PROGRAM VORLAT : VERSION 3 14 МАҮ 86 
VORTEX-LATTICE METHOD FOR FLAT RECTANGULAR WING 


ME з а OE ΡΟ ΑΣΕ EE a 
X333 VERSION 3 OF THIS PROGRAM IHCORPORATES, AN. OPTION HREM 


=A mH CHAIM DD HPD 
>; 
2 


HV 200 Ὁση- νο Uu 
m= On OACYPVHAO WYP 
от 

JA =p 


xxx% OF HAVING THE "Сар UTATION DONE USING EITHER A δε x 
с COS INE GRID SPACING OR ος GRID SPACING IN ΧΧΧ 
сн OTH THE X-(CHORDWISE) AND Y-(SPANWISE } DIRECTIONS ce 


хх ххх ххх жж ХХХ ХХ ХХ E E HEH HH HIE E E € E E € E چو چد چو چو چو چو چو چو چو چو چو € € عو چو عو عو چو‎ 


ІМТЕСЕК МАМ5 


OOOQOOOQOOOOQOQOOQOOQOCQOQOQOOQO OOOOO00O00/4O00000000000000 


DIMENSION GAH( 350) 
COMMON Dx AR;PI,IOPT,NX,NY 
COMM cof/ A(250,351),NEQNS 
PI = 20585 
NPASS - 
с 
C FOLLOWING LINES FOR OUTPUT FILES ADDED BY J.A. CAMPBELL (JUL88) 
C OPEN FILE FOR COEFFICIENT OUTPUT 
OPEN CUNIT=11, 
2 FILE= 'VORLAT4.DAT' 
2 ORGANIZATION= 'SEQUÉNTIAL', 
2 ACCESS= ‘SEQUENTIAL ' 
2 RECORDTYPE= 'VARTIABLE', 
2 FORM: 'FORMATTED' 
I 2 STATUS= 'UNKNORKN') 
C INPUT ASPECT RATIO (AR), NUMBERS | OF VORTICES 
С IN X- AND Y- DIRECTIONS (NX,NY) 
C ANGLE OF ATTACK IN DEGRES s (ALPHA 
С CALL LIBRARY RO ROUTINE TO CLEAR THE SCREEN, THE PRINT HEADER 
PRINT * 
PRINT X, ' PROGRAM VORLAT : VERSION 4 : 10 SEPTEMBER 88 ' 
PRINT ж, ' VORTEX-LATTICE METHOD USED TO DETERMINE SPANWISE ' 
PRINT x, ' LIFT DISTRIBUTION FOR A FLAT RECTANGULAR HING' 
f PRINT * 
10 PRINT *, ' ENTER THE ASPECT RATIO?' 
READ * 
IF (NPASS .СТ. 1760 TO 70 
So PART INPUT THE NUMBER OF VORTICES, IN THE X AND Y DIRECTIONS 
> 
22 READ x, 
IF ((N*x XR T 350) THEN 
PRINT ж, ! NX x NY MUST BE LESS THAN OR EQUAL TO ۰4 
PRINT x. ' PLEASE REENTER' 
GO TO 32 
END IF 
50 DRIN RS ‘RAT TS OTHE ANGLE OF ATTACK IN DEGREES?' 
> 9 
52 READ x, ALPHA 
IF (ALPHA .EQ. 0.) THEN 
PRINI x,‘ ALPHA MUST BE GREATER THAN ZERO. PLEASE REENTER.' 
ELSE IF (ALPHA .GT. 45.) THEN 
PRINT *,' ALPHA MUST BE LESS THAN 45. PLEASE REENTER.' 
CO TO 52 
END IF 
IF (NPASS .GT. 1160 το 72 
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60 PRINT *,' ENTER GRID SPACING OPTION 11 OR 2): (1) UNIFORM', 
я ' 5 (2) COSINE' 
READ ж, IOPT 
a NPASS š ÑPASS + 1 
хжжж MAKE CALCULATIONS AND ECHO CHECK THE INPUT 
70 DX = 1./FLOATINX) 
DY = AR/LO.XNY * .5) 
1 NEQNS - NXXNY 
C CALL LIBRARY ROUTINE TO CLEAR THE SCREEN 
< 72 CALL CLRSCR 
PRINT *,' THE CURRENT VALUES ARE: ' 
PRINT ж 
PRINT *,' 1) ASPECT RATIO . . ος ДН 
PRINT x5; 2) NUMBER OF VORTICES INX.NV) =) NX NY 
PRINT ж)! J ANGE OF ATTACK (DEGREES) =' ALPHA 
PRINT *;' ὦ) ΘΗ. SPACING: (1) UNIFORM, (2) COSINE =',IOPT 
PRINT X,' THE CALCULATED PARAMETERS ARE: ' 
IF tIOPT .EQ. 1) THEN 
PRINT *, DELTA X =',DX 
۹۰ے‎ ٤٦ 
PRINT x, SINCE COSINE SPACING WAS CHOSEN,' 
gupPRINT *' DELTA X AND DELTA Y ARE УАВТАВ1Ё.' 
РРІМТ ж 
PRINT X,' NUMBER OF EQUATIONS TO SOLVE =" ,NEQNS 
PRINT *,' ARE THESE VALUES CORRECT? (YES-1, NO-2)' 
75 CALL QUERY (NANS) 
IFLAG = NA 
IF (IFLEC .ЇТ.. 1 IFLAG .CT. 2) THEN 
быры ENVSLID ENTRY ERITER 1 OR 2.' 
С^ ТО 75 
END IF 
Я IF (IELAG .EQ. 1) GO TO 90 
PRINT *, ' WHICH VALUE DO YOU WISH TO CORRECT? ' 
80 PRINT ж, ' ENTER 1, 2, 3 OR @' 
CALL QUERY ( NANS ) 
IFLAG = NANS 
IF IFLAS ЄТ. 4) THEN 
BRING СТ, TNVALTD ENTRY. ENTER T27 του. 
enp 00 10 8 
C xxxx SEN CONTROL BACK TO OBTAIN CORRECT DATA ex 
CO TO πο, τη ρου τει 
C xxxx CHLMGE GRID TYPE sexe 
ТЕ (ТОРГ εἰ IF TREN 
IOPT = 2 
ELSE 
ТОРТ = 1 
END IF 
с CO TO 72 
90 COSALF = СОЅІ А РНАхРІ/180. ) 
' SINALF = SIN(ALPHAXPIZ180.) 
C INFORM OPERATOR THAT PROCESSING HAS STARTED 
: WRITE (6,1003) 
С SET COEFFICIENTS OF EQUATIONS FOR VORTEX STRENGTHS 
DO 100 I = 1;NY 
DO 100 J ='1,NX 
Jj = tl τ λα ж. 
ALIJ,NEQNS + 1) = SINALF 
00 100 К = 1,NY 
DO 100 L - 1,N* 
KL = (K-1)&NX + L 
CALL DNHASH (IoJ,Ko L, AGO S 2251) 
А 100 СОМТІММЕ 
С SOLVE FOR VORTEX STRENGTHS 
CALL GAUSS (1) 
DO 200 I = 1;NY 
DO 200 J = LNX 
IJ = {I-1J*N 
200 GAM(IJ) = A(IJ, NEQNS1) 
С PRINT OUT HEADINGS FOR DATA 
IF (IOPT .EQ. 1) WRITE (11,1000) NX,NY,AR,ALPHA 
IF (IOPT 159; 2) HRITE (11,1001) NX;NY ۸۸ 
WRITE 16,1005) 
š WRITE (11,1005) 
С INITIALIZE TOTAL FORCE AND MOMENT COEFFICIENTS 


CMT - 0.0 
СОТ = 0.0 
CLT = 0.0 
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COMPUTE FORCE AND MOMENT COEFFICIENTS 


C 
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YB = ҒАС * FCOS(141,NY) 
IF (IND LEQ. II XP 2 FCOS(L,NX) + .75*(FCOS(L4+1,NX) - FCOSCUL,NX 2) 
IF (IND EQ. 2) XP - FCOSLLSNX) + .25*LFCOSCES15NX ) - FCOSCELSNX )) 
CCC  YP s FACXO.S*(FSIN(K,NY) + FSIN(K-1,NY)) 
ҮР = ЕАЄ#(РСО5(К,МҮ) + 0.5xtFCOSCK*1,NY) - FCOSLIK,NY ))) 
60 W = WHV(XP,YP,XA,YA) - WHV(XP,YP,XA, YB) 
+ - ИНУ(ХР,ҮР,ХА,-ҮА) ж WHV(XP,>YP>XA,-YB) 
WH = нх.25/2,1415926555 
RETURN 


ж ХХХ ХХ € € 3€ 3€ 9€ 39€ 9€ 9€ 9€ 9€ 9€ 9€ 9€ 9€ 3€. 9€ 9€ 9€ 0€ 9€ € 9€ 9€ 39€ 9€ 9€ € 3€ 9€ 9€ 9€ 39€ 3€ 9€ 9€ 9€ € 9€ 39€ 9€ 9€ 3€ 
FUNCTION WHVUXI;YloX2,Y2) 
το: GO TO 100 


n ν' Ξ 0 % Sem Al-A2)*x2 + (Yl-Y2)*x*x2 AUTOS шк 
RETURN 
100 WAV - l./tY1 902) 
RETURN 


ЭЄ ЭЕ ЭЕ ЭЄЭЄ ЭЕ © ЭЕ ЭЕ Ж ЭЕ ЭЕ © Ж Ж ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ Ж ЭЕ © ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ © ЭЕ ЭЕ ЭЄ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ Ж 3© ЭЕ ЭЕ ЭЕ Э# ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЄ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ 
τ THIS RETURNS THE NONDIMENSIONAL X COORD OF EACH SECTION BOUNDARY 


FUNCTION FCOS(I,N) 
Z.1415926585 
FRACT = FLOAT(T <1 )/FLOATIN) 
S = 0.5 x (1. - COS(PI¥FRACT)) 


NTS RETURNG THE NONDIMENSTONAL Y COORD OF EACH SECTION BOUNDARY‏ >> ہے 


С THIS RETURNS THE Να Y COORD OF EACH SECTION BOUNDARY 
С THIS KAS INTENDED TO IMPLEMENT THE SIN LAN LATTICE SPACING ΞΟ. 
s REFERRED TO BY GARY HCUGH, JOU. OF ACFT.» MAY 1973, VOL.10; NO. 
FUNCTION FSINCI,N) 

РІ = $.1615926555 

FRACT = FLOAT(IJ/FLOATI(N) 

FSIN = (SIN(.5*PIXFRACT )) 

RETURN 


CHIE HEH HHH HK HAH HHH HHH HHH HEH IH HEH E EE E KEE HEHE IE HEHEHE ЭЕ ЭЕ ЭЕ ЭЕ Э© 3 رع چو چو‎ HEHE IEE EKE ХХ Ж Ж Ж 
SUBROUTINE CLRSCRN 


С 
С LIBRARY ROUTINE TO CLEAR THE SCREEN. 


ISTAT -. LIBSERASE PAGE (1,1) 
RETURN 


END 
Се Ж Хх Хх Ж Ж QOO HEE IEE HE FEE FEE FEE FE FEE FE IESE IE FE IEE FE FE IEE IE IE IE SESE IE IE IE IE IE IEE ЭЕ ЭЕ © ЭЕ ЭЕ ЭЕ 
SUBROUTINE QUERY(NANS ) 


С ROUTINE TO TRAP ERRORS CAUSED BY IMPROPER RESPONSES TO QUESTIONS. 
C THE COMPUTER GENERATES AND ERROR WHEN A CHARACTER IS SUPPLIED TO 
С А QUESTION EXPECTING AN INTEGER OR REAL VALUE 

NOTEST=0 

1 CONTINUE 
IF (NOTEST .GT. 0) THEN 
PRINT *.' ' “CHAACTER VALUES ARE NOT VALID. ' 

guo RINT x» ' PLE-SE ENTER AN INTEGER VALUE. ' 

NOTEST = NOTEST + 1 

READ (5,%,ERR=1 JNANS 

RETURN 


(C X COE 3n © Ж 5° Эе ЭЕ © ЭЕ ЭЕ ЭЕ HHI HH HH HH HH HEHEHE HEHE HEHEHE HEHEHE HEHEHE HEHEHE IE IE HEHEHE IE IE FE IESE HE IEE FEE HE HE IE و و یو‎ 
SUBROUTINE GAUSS (NRHS ) 


C 
C SOLUTION OF LINEAR ALGEBRAIC SYSTEM BY 
С GAUSS ELIMINATION WITH PARTIAL PIVOTING 
C = COEFFICIENT MATRIX 
С NE NS = NUMBER CF EQUATIONS 
С S = NUMBER OF RIGHT HAND SIDES 
C RIGHT-HAND SIDES AND SOLUTIONS STORED IN 
С COLUMNS NEQNS+1 THRU NEQNS+NRHS OF 
DX DY ARP 
EONHON CORP AC 350,251),NEQNS 
= FC NS + і 

. NTOT = NEGNS + NRHS 
C GAUSS REDUCTION 
Ñ DO 150 I = 2,NEQNS 
C -- SEARCH FOR LARGEST ENTRY IN (I-1)TH COLUMN 
С ON OR BELOW MAIN DIAGONAL 

IM =j =i 

IMAX - ІМ 

АМАХ - ABS(ACTM IM)) 

DO 110 J = I,NE 


IF (AMAX Ge. ABSLALJ, IM))) GO TO 110 
ГС J 


ABS(A(J,IM)) 
110 CONTINUE 
== SWITCH (I-1)TH AND IMAXTH EQUATIONS 


ООО 
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GO TO 140 
J5K) - RX*ACIMSK) 


MH)ZA(IM IM) 
BACK SUBSTITUTION 


RU (NEQNS )TH EQUATIONS 
NTOT 


LIMINATE (I-1)TH UNKNOWN FROM 
TH TH 

T,NE 

Al, 

= Ï 

= Al 


E 
H 


140 DO 150 


η πο ον 


А(І 


(7۸1 


) - 


۷۱ئ0 
QNS‏ 


4 
NE 
‚К 
»Κ 


LI-uU eA ^ IH 


о-о I-23 
«o 
o Quiz 
e Cau 
OOO 
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APPENDIX D. PROGRAMS JETFLAP AND JETFLAPIN USER'S 
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Introduction 

The purpose of this manual is to permit the user to uulize the JETFLAP program very 
quickly and easily while requiring little understanding of the underlying EVD theory. 
The program JETFLAP can be run as a stand alone program if the user wants to de- 
velop the JETFLAP input data file manually, but this is not recommended. The layout 
of the data 1s not intuitive and its formatting is critical. For this reason, the program 
JETFLAPIN has been created to assist the user in creating the JETFLAP input data file 


through an interactive terminal session. 


This interactive program is a user-friendly way of creating the input data file required 
by the wing analvsis program JETFLAP. When executed, JETFLAPIN asks questions 


of the user in order to construct and write to a file the required JETFLAP input data file. 


The following manual contains an explanation of the required input data. The reader 
will find a parallel explanation, with minor modifications, in References 7 and 8. Some 
parts of these sources have been duplicated in total since they required no comment and 
were relevant to the present explanation. References to input data cards have been 
changed to data file lines. In the interest of space. some sections were not included, but 


the interested reader mav find them helpful. 


Ihree sample data input files and their associated output files are included at the end 
of this appendix. The file VOYTEST.DAT contains information approximating the 
VOYAGER wing planform. TAPER.DAT illustrates the use of the trapezoidal 
planform simplification and a semi-circle spacing scheme. The wing is swept 45 degrees. 
has an aspect ratio of 8.0 and a taper ratio of 0.45. The DOUGLAS.DAT data file is 
contained in. Ref. 7 and was also located at the end of the magnetic tape following the 
program JETFLAP. It has been used as a program validation test case bv comparing 
the present results with those of Refs. 7 and 8. This file contains information for a 
simple rectangular jet-flapped wing and three fundamental cases. The stability derivative 


flag has also been set. 
Assumptions and Limitations 


Before using this program, the user should be aware of the assumptions used in devel- 


oping the EVD method and the resulting danger of extending the theory bevond its 
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limits. The assumptions are explained in the section on theory contained in References 


7 апа 8, but they are sununanized below. 


1. 


ریا 


CH 


6. 


Linearity - This assumption allows the superposition of fundamental geometric 
cases or solutions but also limits. as an example, the total deflection of flow by 
flaps. Reference 7 states that the small angle assumptions of the linearized ap- 
proach make it unhkelv that the program would accurately predict the character- 
istics of a Wing with a flap deflected at 60 degrees. 


Thin Wing Approximation - Enabling the simplified treatment of wing sections by 
transferring boundary conditions to the chordline, this assumption limits the accu- 
racy of the program in modeling thick wings. 


Inviscid Flow - Because of its inability to predict separated flow, the computed lift 
mav be unrealistically large for a wing at high angle of attack or with a sizeable flap 
deflection. Also, the program cannot consider parasitic drag. 


Incompressibility - This assumption limits the range of speeds for which the pro- 
gram can be used to that in the low subsonic range. The Prandtl-Glauert rule can 
be applied to cases Where subsonic Mach number effects become important (Ref. 
3) and, in fact, has been included in a later version of this EVD program. 


Irrotationalitv - The irrotationalitv assumption usually imposes no additional linu- 
tation in low-speed external aerodynamics where the flow can Бе considered 
irrotational. 


Interference Effects - No allowance is made for mutual interference effects between 
the wing and pylons, nacelles or fuselage. Ground effect is also neglected. 


Wing Area Variation - Although muluple-flapped wings may be modeled. no al- 
lowance 1s made for the increased wing area due to flap extension. An example 1s 
a Fowler Flap. If the configuration of concern is such a case. a modification of the 
original wing planform area input value would have to be made. 


Trailing Edge Jet Sheet - The program only allows the jet sheet to emanate froni 
the wing trailing edge. Therefore. doubtful results will be obtained on augmentor- 
tvpe flaps. slots and externally blown flap systems. 


Computer Run Time - An increase in the number of elements used to model the 
wing planform will increase accuracy. However, accordins to Reference 7 theses 
to compute increases proportionallv between the square and the cube of the num- 
ber of elements used. On the MicroVAX 2000, a run using 112 elements 
(VOYAGR.DAT, no jets, two fundamental cases) took 137 seconds to run, while 
a wing with 37 elements (DOUGLAS.DAT. 21 wing 16 jet elements, three cases 
and stabilitv derivatives) required onlv 91 seconds. These times may be further 
shortened by sending the output to a file vice the screen. In the case cols 
VOYAGR.DAT run, the time was cut by more than half to a mere 59 seconds. 


Data Preparation Requirements 


Prior to using the JETFLAPIN and JETFLAP programs, the user must accomplish the 


following: 


l. 


Draw a scaled plan view of the wing and, if present, the jets. 
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2. Divide this planform into spanwise sections parallel to the freestream velocity. A 
maximum of 40 is permitted. 
Ede each section into rectangular base elements. These elements. literally, are 


the bases of the EVD elements [Ref. 8: p. 53] which, in turn. are the "building 
blocks” of the program operation. Each row can be divided into a maximum of 40 
base elements, 20 on the wing and 20 on the jet. However, the maximum number 
of these elements may not exceed 600. 


4. Using a logical scheme, translate the arrangement of these elements and the de- 
flections of the EVD’s into a format usable by the program. 


5. Refer to the section on the Formulation of the Input Data for a suggested method 
of approaching the problem of data determination. 


Input Description 
A brief description of each piece of input information required is provided during exe- 
eymon oi the JET FLAPIN program, however for the benefit of the user they are re- 


peated and expanded upon here. 


ο Title Line - This card provides anv desired description of the computer run. The 
title will be printed at the top of the first page of output. A maximum of 80 char- 
acters may be input. 


* General Planform Parameter Line - This line contains basic planform information. 


AREA Wing area. in units of (SPANY to. be used for normalization of the 
aerodynamic coefficients. Must be in the same units as SPAN, 1e., if 
span is in feet, the area should be in ft?. 


SPAN Wing span. in any desired length units. 


CREF Wing reference chord, to be used for normalizing various aerodynamic 
coeflicients. It may be any chord length and must be in the same units 
as SPAN. If a value of 0.0 is input. the mean aerodynamic chord. 
CMAC. which 1s computed automatically, will be used. 


AMC Pitching moment center. Point about which pitching moments will Бе 
taken, measured from the wing apex. Same units as span. NOTE: The 
Wing apex is defined by the program, imphcitly, as the intersection of the 
x-axis with the leading edge when the wing is oriented without a sideslip. 
If the wing should be input in a yaw, the apex remains at that point. 


XCG Wing Center of Gravity. Measured from the apex, this point is used as 
a pitching axis for computation of stability derivatives, XCG need only 
be input if IDERIV = 0. Same units as SPAN. 


* General Control Line - This line contains control “flags” which describe the basic 
characteristics of the computer run. 


NROWS Number of spanwise sections (rows) into which the wing is divided. For 
symmetric or anti-symmetric wings, onlv the number of sections on the 
right half of the wing should be input. For non-svmmetric wings, 
NROW'S equals the total number of spanwise rows from wing tip to 


ل 
CA‏ 


NCASES 


ISYMM 


IPRINT 


JETFLG 


IGIYPE 


HINGE 


IDERIV 


wing up. See [Ref. 8: pp. 79-81] for a discussion on 11 m 
non-svmmetric wings. 


Total Number of Fundamental Cases. There will alwavs be one funda- 
mental case, that being a flat plate at one degree angle of attack. No 
input data 1s required for that case and it will be labeled bv the program 
a Case l. Therefore. NCASES must be one greater than the mumbem n 
cases for which input data will be given (data lines 12 and 13), to allow 
for the angle of attack case. 


Symmetry Indicator. 

= = Û Wine 1s Svinnienme 

» > 0, Wing 1s non-symmetric 

» <0, Wing Is anti-symmetric 

Printed Output Control Flag. 

" > 1, Print geometry details and total aerodynamic coefficients, 
a = |, In addition, print spanwise loading. 

. = 0, In addition, print chordwise loading, 


a < 0., In addition. print all matrices. back substitution checks and 
other details. This option is normally reserved for trouble-shooting, 
since it produces a very large amount of output. 


Jet Indicator Flag. A flag used for signaling if there 1s a jet issuing from 
the trailing edge of the wing. 


= =0, There is a jet sheet and jet data will be input. 
= = 1, There is no jet sheet. 
Wing Planform Geometry Flag. 


e = |, Wing planform is completely arbitrary and sectional leading and 
trailing edge coordinates will be read to define the planform. 


= = 2, Wing Is trapezoidal and simplified planform data will be input. 
This type of input can only be used if the wing is synimetnc E 
Although a triangular shaped wing might be thought of as a degen- 
erative trapezoid, this input cannot be used for a delta planform. 


Hinge EVD Flag. 
= = (0, Regular EVD's will be used on ali hinge elements. 


= > 0, Hinge EVD' s will be used on all hinge elements: ορια. 
if computing dynamic stability derivatives, re JDERIY au 


Dynamic Stability Derivative Flag. 
= = Q, Basic run will be executed with no stability derivatives computed. 


. > 0, In addition, a dynanuc stability derivative run will be executed. 
This option requires the program to make an additional run, ap- 








proximatelv doubling the computer time. NOTE: The derivative run 
also reduces to $ the maximum number of opuonal fundamental cases 
permitted, since an extra fundamental case 1s generated by the pro- 
gram to be used during derivative calculations. 


Section Centerline Location Lines - These lines contain the spanwise locations of 
the centerline of each wing (and jet) secon. JETFLAPIN will will place up to 
eight values on each line, with a maximum of 5 lines (40 sections) allowed. 


Y Spanwise distance from wing centerline (x-axis) to the section centerline, 
η: ' AJ values must satish (-1.0 < Y < 1.0). 
NROWS (number of row sections) values must be input, beginning at 
the right wing tip and working to the wing centerline for symmetric or 
anti-svmmmetric wings, or to the left wing up for non-symmetric wings. 


Wing Section Type Line - This card indicates the chordwise arrangement of EVD 
elements for each section on the wing. The section type is determined by the 
number and spacing of the elements within each section. 


ICTYPE Tvpe Number of Each Wing Section. Any sections having the same 
number of elements. all with the same distance from the section leading 
τ Onmalized by the sectional chord) are of the same ICTYPE. A 
maximum of ten different types 1s allowed. The section at the night wing 
Hope nr MC |5 PP 0 m ach new type receives a sequentially 
ΟΙ, ΤΠ ΓΙ fyPE 1s referred to Ὁ tle program as 
ΙΙ τ ONS values must be input. therefore, each section must 
0٦ 


Number of Chordwise Wing Elements Line - This line contains the number of 
Suordsuse EVD elements for each wing section type (ICTYPE). 


NI ingenue hordiseElements per I 1 Y PE. Enter. n ascending. order 
a ur cmmubperelelementswithim that ICT Y PE. There mar 
ОСО ТС 56 то ор аѕ папч аѕ twenty elements per section type. 
NWTYPE (the number of different section types) values are required. 


Wing Chordwise Element Coordinates - These lines contain the x.c coordinates of 
ESSE YD element for each ICTYPE. 


XBW The chordwise coordinate of each EVD vortex point, measured fron the 
leading edge of the section, normalized by the sectional chord. The first 
Pe Ol cacheset must be 0.0 and ihe last, less than 1.0. There may be 
as few as tWO Or aS man\ as twenty values per section type. NWTYPE 
(the number of different section tvpes) sets of values are required. 
NOTE: Reference /, Vol. II refers to these coordinates as XB. The” W” 
was added in reference 8 to be consistent with the nomenclature of the 
program listing and also to differentiate between hinge point coord., 
ABH, and XBJ, the coords. of elements on the jet sheet portion of the 
section. 


Planform Information Lines - There are two types of input lines used to define wing 
planform. Line 8a 15 used for arbitrary wing planforms (IGTYPE=1). Line 8b is 
used for trapezoidal wing planforms (IGTYPE=2). The program JETFLAPIN 
will choose the correct form based on the value of IGTYPE. 
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Leading and Trailing Edge Coordinates - In order to define an arbitrary planform. 
the leading and trailing edges for each section must be defined. All section coor- 
dinates need not be input, however. The program must have the up and root co- 
ordinates, as a minimun. and anv other section's which would define a break in the 
edge. The program will assume a straight edge exists between coordinates input. 
and will interpolate between them. A minimum of two sets of coordinates and a 
maximum of NROWS is required. 


Y Spanwise distance from a section centerline to the centerline of the wing, 
normalized bv the half span. Each value must be exactly the same as 
those input for the section centerline location lines. JETFLAPIN auto- 
matically uses the previously input values. 


XLEAD Leading Edge Coordinate. Input the chordwise distance from the section 
leading edge, at the section centerline, to the wing apex. Same units as 
SPAN, 1.€., 001101 ٣٦٣ 


ATRAIL Trailing Edge Coordinate. Input the chordwise distance from the section 


trailing edge, at the section centerline, to the wing apex. Same units as 
SPAN. 


9 A ^9" must appear in column one of the next line after the last edge co- 
ordinate 1n order to signal that all desired sections have been input. This 
is required only if IGTYPE-2] and is handled automaticall eb 
0722 


Trapezoidal Wing Parameters - This line contains planform information for the 
trapezoidal wing. It is used when IGTYPE-2. This type of input may be used 
onlv when the wing planform is symmetric. 


ARATIO Wing Aspect Ratio. Input the value of (SPAN)? AREA. JETFLAPIN 
automatically calculates this value from previously supphed information. 


SWEEP Sweep angle of the Quarter-Chord Line. Input the angle in degrees. 


TR Taper Ritio. TR is defined as the chord at the wing tip divided bv the 
chord at the wing root. 


Jet Section Tvpe Line - This line indicates the chordwise arrangement of EVD ele- 
ments for each section on the jet sheet. The jet sheet uses the aie Cs 
boundaries as the conventional wing sections forward of it. This line is required 
onlv if JETFLG=0. 


IJTYPE Type Number of Each Jet Section. Input the tvpe number of each sec- 
tion of the wing with respect to the presence of a jet sheet aft of it. Since 
there is no requirement that the jet sheet span the entire wing, sections 
without a jet are designated with a “0”. Simular to line 5, the wing section 
type line, as each section within the jet sheet 1s encountered, it ertbenen 
ceives a sequentially higher IJTYPE of the same IJTYPE as a previously 
labeled equivalent section. The number of different jet section types 15 
NJTYPE. The zeroes do not count as IJTYPE's for the purposemam 
sumning tvpes to find NJTYPE. The number of non-zero values input 
is NROWSJ, the number of sections having a jet. The maximum num- 
ber of jet section types is 10. Implied also is that NJTYPE must be less 
than. or equal to. NROWSJ. NROWS values are required. 


~J 
C 





NOTE: Due to a computational procedure, there must be at least three 
adjacent jet sections if there 1s one. Also, inboard or outboard of a 
partial span jet sheet, a group of at least three unblown sections must 
EIST: 


Number of Chordwise Jet Elements - This line contains the number of chordwise 
EVD elements for each jet section tvpe. It 1s similar to line 6, number of chordwise 
maine elements per section type, except that ХМ] ГҮ РЕ values must be input. Re- 
sumed only if JETFLG=0. 


NI ο ο ο ο Εν Ὁ Elements {οι Fach Jet Section Type- Enter, 
in ascending order by IJTYPE, the number of elements within that 
тра LC AS IC dS (O OI aS mant as ten elements for 
ТОЛ DTG DENS TIXPE ahne number of different jet section 
tvpes) values are required. 


Jet Chordwise Element Coordinates - These lines contain the xc coordinates of each 
@ement ol cach jet section type. \JTYPE sets Imes are required, each with NI 
naues of xc. These values are required only if JETFLG - O, 


ХВЈ Chordwise Coordinate of Each per IJTYPE. The chordwise coordinate 
of each EVD vortex point, measured from the leading edge of the sec- 
tion (at centerline) and normalized by the sectional chord. Thefirst value 
for XBW of each set must be 1.0 (trailing edge). The last two base ele- 
ШЕПТЕ the jet sectron are OVerlapped by the Far-Jet (or Jet. or Infinity) 
EVD which has a length of 10", approximating infinity. Therefore. there 
15 NO proactical maximum coordinate for elements within the jet. There 
ο ο ο ο ον От ас тпапу as ten wales per jet section type. 
ΙΙΙ егеп jet Section t< pes) lines of values are 
το ٦ 


Fundamental Case Control Line - This line identifies the tvpes of linear geometric 
variations to be included in each fundamental case. The number of fundamental 
cases input must be one less than NCASES (line 3), to allow for the angel of attack 
Ecc separate line is required for each of the input cases. In each of the flags 
eve, a Zero Value indicates onussion of the respective type of input for that fun- 
damental case. A non-zero value indicates that the variation will be included and 
input must be given to define it. JETFLAPIN sets the non-zero value to corre- 
spond with the number of the fundamental case. i.e.. for fundamental case number 
two. variations to be included will be indicated with a “2”. For each variation ѕе- 
lected, a corresponding line will follow containing the information defining that 
variation. NOTE: Refs.7 and $ use the same names shown below, however, in the 
program listing fo- JETFLAP under subroutine INCASE they are refered to re- 
meee cl as TNPL ITT. PNPUTH, INPUTD, INPUTC, and INPUTB. 


INTWST Spanswise twist distribution flag. 
INHITE Leading T vertical displacement flag. 
INDELJ Jet deflection flag. 

INCAMB Canber flag. 

INBETA Wing hinge deflection flag. 
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Fundamental Geometric Variation Lines - These lines are input onlv in the appro- 
priate flags in the fundamental case control line has been set to a non-zero value. 


IWIST 


HO 


DJ 


IGT 


аб 


АСТЕ 


ІНТ 


Secuonal Wing Twist. Enter the wing twist, in degrees, at the section 
centerline, with respect to the wing reference plane. Positive values are 
in the same sense as a positive angle of attack (leading edge up). 
NROWS values are required. Required onlw it IA Ee 


Displacement coordinate of the section leading edge from the wing ref- 
erence plane, normalized by the sectional chord. Leading edge displace- 
ment may be the result of dihedral. twist. nonlinear movement of a 
leading edge device, etc. Translation resulting from ordinary linear 
leading and trailing flap deflections and angle of attack are accounted for 
automatically by the program. These values are used only for the 
computaion of the jet thrust contribution to pitching moments and 
therefore will have no effect unless jet sheets exist. NROWS values are 
required... Required onis ۶۶۶٣٠٣٦ 


Jet Turning Angle. The jet turning angle. in degrees. relative to the 
trailing edge. Positive deflection is downward. NOTE: JETFLAPIN 
requires that the values are input in the order that they are encountered 
within the jet sheet, working from the right wing пр towards the 
centerline. NROWSJ values are required. Required oni P 
0. 


Camber Tvpe Number for Each Wing Section. These values are similar 
to the wing section type values on line 5. In order for two sectione 
have the same ICT. the number of elements. their x e; and the сата 
angle associated with them must be the same. NROWS must be input 
with a maximum of 10 ICT’s allowed. The highest value is NCT and 
there may be no “gaps” in the numbering sequence. A zero value indi- 
cates no camber. Required only it INC s p m! 


Camber Angle. The camber angle, in degrees, at eh downwash control 
point of each EVD. The downwash control point is defined as a point 
chosen halfwav between adjacent NBW’s (Ime 7) including the trailing 
edge. The angle will be positive in the same sense as positive angle of 
attack. МСТ lines are required. Required only it INCAMB # 0. 


Trailing Edge Camber Angle. This is the trailing edge deflection angle 
due to camber only. The values are used for determining the angle at 
which the jet sheet issues from the wing. These cards are. therefore, only 
necessary if there is camber (INCAMB # 0) and if there 15 a jet sheet 
(JETFLG #0). ΝΕΟ values are ٦٣ 


Hinge Section Type. Similar in concept to Wing Type (ICT YPE) and 
Camber Type (ICT): starting with the first section, designate the type 
of section with respect to hinges in the section. A section with no hinges 
will be “0”. For sections to have the same ІН they must be alikemm 
their number of hinges. not to exceed four, location of hinges (x c). their 
tvpe (leading or trailing edge flap) and in all deflections. [here mav be 
as manv different IHT's as there are sections. The number of different 
ITIT’s is called NHT, and there may be no” Gaps “in the sequen 
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ХВН 


ILT 


BETA 


NROWS values are required. therefore every section must be “typed”. 
Required only 1 INBETA = 0. 


Hinge Point Distance. The distance from the leading edge of the section 
ΙΗ. ο where tie hinge lime intersects the section 
centerline. the distance is normalized by the sectional chord and must 
ре one of the ABW values entered on line 7. A set of values is required 
for each hinge section type; NHT sets. 


Leading or Trailing Edge Indicator. 


. — (0, Trailing edge flap hinge (positive deflection in the sense of posi- 
tive angle of attack). 


« +0, Leading edge flap hinge (positive deflection in the sense of neg- 
ative angle of attack). 


Hinge Deflection Angle. The deflection angle, in degrees, of the element 
aft of the hinge point relative to the element forward of the hinge point. 


Composite Case Lines - These lines indicate how the fundamental cases that are 
input on Imes 12 and 13 are to be combined to form or model the wing under study. 
A maximum of 24 composite cases are permitted. No composite case may also be 
chosen and JETFLAPIN will automatically place a "9" in the first column of this 


line. 


N 


Fundamental Cases to be Included. Indicate the fundamental case 
number which 15 to be included in forming a given composite case. As 
many as ten fundamental cases max be combined in any one composite 
case. The fundamental cases are identified in the order in which they 
were input. NOTE: Recall that fundamental case number 1 15 the one 
degree angle of attack case. 


Multiplicative Factor. This factor multiplies the fundamental case pre- 
viously input. Had the fundamental case included a hinge deflection of 
10 degrees, a value of A = 1.6 would introduce a flap deflection of 16 
degrees into that particulat composite case. 


End of Composite Cases. This value 1s placed at the end of the last 
composite case or bv itself to indicate the completion of composite case 
information or that no composite cases are desired. respectively. NOTE: 
Ша 9 “care isnot conditional. it will be in every run. 


Jet Strength Line(s) - These lines contain the jet strength for all sections which 
have a jet. An unlimited number of sets of values, maximum of 40 рег вет, шау 
Шс егей NROVWSJ values are required. Required only it JETFLG = 0. 


CMU 


Sectional Jet Momentum Strength for each jet row. CMU is defined as 
CMU = J (qc(v)), where J is the sectional jet momentum per unit span, 
q is the dynamic pressure, and c(y) 1s the sectional chord. Since the data 
refers to onlv sections with jets, 0.0 mav not be input unless all are 0.0. 
As manv sets of CMU data may be input as desired. To run a case on 
a jet-flapped wing to examine the characteristics without the jet, a set 
of values all equal to zero must be entered. This option generates a 
complete set of loadings and other aerodynamic coefficients for each set 
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of CMU data input. (0.0 < CMU < 800.0) Required only it JETFLG 
= 0. 


A "9" 1s placed in column one of the line following all CMU data to 
signal the end of CMU input. Handled automatically by JETFLAPIN. 


Input Restrictions 


A summarv of the input restrictions described in References 7 and $ is listed below. 


These have been incorporated into the error-checking and screen messages provided in 


the JETFLAPIN progr::m and are repeated here as a quick reference during data prep- 


aration. 


l 


زی 


ΗΓ 


A "Rule of Three" is implied with regard to dividing the wing (and jet sheet) into 
sections. At least three adjacent sections of either blown or unblown types are re- 
quired. A jet cannot consist of one or two sections. Likewise, if the region of jet 
sheet is partial span and located so that it 1s bordered on both inboard and out- 
board sides by conventional (unblown) wing. those unblown portions of the wing 
must also have three adjacent sections each. 


. The number of spanwise sections, NROWS, requires 3 < NROWS < 40. 


1< NCASES < 10. There is always one Fundamental Case generated by the pro- 
gram. Nine others may be input. 


mene number of chordwise elements in the wing part of a section, NI, requires 


BEES NI <з0. 


ШЕВ Пштрег о! chordwise elements in the jet part of a section, NI, requires 
КЕ NI = 20. 


E mun ol 10 Section tvpes for the wing or the jet. (ICT YPE, IJTYPE x 10 ). 
ШІ (һе wing, 0.0 < XBW < 1.0. 
mete jet, 1.0 < ABJ. 


Onlv NROWSJ, the number of rows with jets, values required for DJ, ACTE, and 
τι. 


10. Maximum number of camber section tvpes is 10. 


UU Ic uiay be as many hinge section types. ‘NHT, as there are rows (or sections). 


υ. 


] 


(Ix NHT x NROWS) 


Each section mav have four hinges in any combination of leading and trailing edge 
flaps. 


meee jet blowing coefficient, CML, is restricted to, 0.0 < CMU < 800.0. 


Formulation of the Input Data 


The most difficult and time-consuming part of the wing analysis using the JETFLAP and 


JETFLAPIN programs is the decomposition of the wing into elements and obtaining the 


coordinates of those elements. There is hope that follow-on work will be conducted to 


integrate the sophisticated graphics capabilities of the MicroVAX/2000 with the data 


input portion of the JETFLAP program, however, for the present, the following me- 


thodical approach to the problem is recommended. 


A table such as that shown in Ref. 8, p. 117. will help the user organize the requied 


data 


low: 


E 


Gn 


6. 


Starting at the beginning of the problem, the user is urged to follow the steps be- 


Make or obtain a scaled drawing of the wing with all flaps and other details drawn 
on the planform. The scaling is often important in obtaining geometrical data that 
is often not presented explicitly. 


If possible, create equations for the leading and trailing edges. For example. if the 
edge 15 а straight line. substitute trp and root dimensions into the Two-Point Form 
of the equation fo a straight line. Such an equation will facilitate the finding of 
leading trailing edge coordinates once spanwise section centerline coordinates have 
been established. 


Draw in spanwise sections taking into account obvious areas of rapidlv changing 
loading (wing tips. near flaps) and rapid changes in sectional chord. It is important 
to define sections near breaks in the wing. such as leading edge extensions. other- 
wise the program. seeing onlv the wing edge coordinates, nught read that portion 
of the leading edge as a relativelv flat segment of a multisegment tapered wing. 


Make two columns, entering sections, starting with | at the wing tip, m column one 
and the section centerline coordinates (normalized bv the semi-span) in. column 
two. 


Draw in chordwise elements for each section. It 1s more expedient to strive (ОТ (ШӘ 
same distribution on each section. if possible. unless camber discontinuities (flaps. 
rapid changes 1n mean camber ine slope) dictate otherwise. 


Enter the coordinates of the vortex points, normalized by the sectional chord, on 
each line next ot the appropriate section. NOTE. One of these coordinates must 
coincide with the pomt where the section centerline intersects a flap hinge ies и 
included. Circle or otherwise mark such coordinates for future identification. 


Proceeding down the rows of coordinates, any two rows with a different number 
of values or different values. are of different section types. In ascending order label 
in another column each row with its tvpe.. The maximum number of types 1s 10 
and the highest t.pe defined νο ез ии 


At the end of each row write the total number of chordwise elements in that row. 
Circle the numbers that correspond with different tvpes. 


In another column, list leading and trailing edge coordinates by substituting (1) 

values into the leading and trailing edge equations, if available. NOTE. Only those 
edge coordinates which mark wing root, tip and breaks need be calculated, if the 
edges are straight line segments. 


10. Looking back over the completed table, the data for several of the input data file 


lines are readily available. Column numbers refer to columns in Table I. 


Col Zis nenn 


2 


σ᾽ 


Col. 3 1s line 5 


c. Cols. 4-12 contain data for line(s) 7. 


Ga 


Col. 13 (circled entries) 1s Ime 6. 


S4 


e. Cols. 2. 1d, and 15, in that order constitute line Sa. 


Imeaddition. the last row number m Col. 1 1$ NROWS (Cols. 1-2 on line 3). The 
total of Col. 13 entries 1s the total number of EVD's, which 15 limited to 600. More de- 


tails may be found in Ref. 8. 


Sample Problem 

 ШЕСІПІрІс session will illustrate the use of the JETFLAP and JETFLAPIN programs. 
The run can be accomplished using one of the sample data output files provided at the 
end of this appendix. It is recommended that one of the simpler data files, such as 
TAPER.DAT or VOYAGR.DAT, be used to respond to the questions asked by the 
JETFLAPIN program. This method will allow the user to try out the program and get 
familiar with the questions asked. prior to going through the effort involved in formu- 


lating the data for a new probiem. 


Starting the Program 
Begin with the screen showing the DCL prompt, which looks like this. 
$ 
Next, ensure that the program is in vour directory by typing 
DIR [Return] 
 елтіе the files for JETFLAP.ENE, JETFLAP.OBJ., JETFLAPIN.EXE and 
WIT LAPIN.OBJ. 


ШООК е JETFLAP.FOR and JETFLAPIN.FOR files exist. vou must compile the 
programs bv tvping. 
FOR JETFLAP [Return] . and if necessary, 
FOR JETFLAPIN [Return] 
The next step ts to link the programs by entering, 
LINK JETFLAP [Return] . and again if necessary, 
LINK JETFLAPIN [Return] 
EU JETIFLAP.EXE, JETFLAP.OBJ., JETFLAPIN.EXE and JETFLAPIN.OBJ 


will now exist and you will be able to run the programs. 


Oo 
сл 


Running the Program 
То run the program. tvpe 
JETFLAPIN [Return] 


The program will start and the screen will display the header for the interactive program. 
Using one of the sample data files for the correct values and this appendix to assist vou 
with the terminology, answer each question presented. As you proceed through the 
JETFLAPIN program, opportunities to review and change input data will be presented. 
Should it become necessary to change vour input data after completing the JETFLAPIN 


program, vou can simply edit the created data file using the VAX EDT editor. 


After the JETFLAPIN input program has been run to completion. the file will vou cre- 
ated will exist on your directory. with the file extension .DAT. This file should be re- 
viewed and compared with the sample file used as a reference. If everything 15 in order, 


vou should run vour data file through the JETFLAP wing analysis program. 


The JETFLAP wing analvsis program wil ask you for the file name of the input data 
file. [t is not necessary to enter the file extension .DAT, but you may do so without any 
Ill effects. The program then asks if vou wish to have the output sent 
to a file. If vou send the data to a file, the program runs faster and vou will have the 
opportunity to review and print out the data. Sending the data to the screen 1s a quick 
wav to see if the program is executing properly, but there is no permanent record of the 
run. At this tme. the program rs not able to print to both the screen and a file. The 


program IS finished whea the DCL (S) prompt returns to the screen. 
Several sample input data files. the results of those files after berng run through 


JETFLAP and the listings for the JETFLAP and JETFLAPIN programs ате ой ПІ 


following pages. 
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JETFLAP INPUT DATA FILE VOYTESI.DAT 


THIS IS A TEST OF THE INPUT PROGRAM JT77IN USING VOYAGER DATA 
= 040. 0000 1332. 0000 
ШИ? 001100 


0. 998498 

0. 400901 
NECI 11 
7 
. 000000 
. 998498 
. 989489 
959459 
2271892 
272793 
. 684685 
9 77 
. 468568 
. 400901 
. 373874 
225856 
. 346857 
. 324324 
E1261 
 ІС2 162 
. 054054 
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“+۰9 
54. 000000 
54. 000000 
54. 000000 
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7ٰ 
-4. 899000 


0000 .0 98 ھا 
ο j] 0 579279 ὁ 6846857 0 5/65/77 9568468‏ 
0.054054 0.162162 261261 .0 0.324324 0.346847 
1 


0.370400 0.592600 0.740700 0. 888900 


1 
0m7 640005 04200077969000 5.412000 
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ORIGINAL JETFLAP INPUT DATA FILE VOYAGR.DAT (S. M. WHITE) 


VOYAGER WING FLAT PLATE AND CAMBERED CASES; 16X7 - 112 ELEMENTS 
59040. 0 Tp 0۵ ο ο 

1601000001010000 

. 998498 . 989589 . 959559 ӘЗІЗ 2792735 . 684685 940578 
. 400901 972615 οσους . 346847 . 324324 „26120 . 162169 
0100 7 0 ۶ ۳ 


07 

00 . 0741 22222 . 3704 “5926 . 7407 . 8883 
. 998596 2۳/0 SM 

. 989489 11» 36.4 

.959459 122 SL 

2991592 ιο. Ὁ 59 1 

4402793 OS &1. 9 

. 682685 ο 44.9 

2576577 4.5 47.9 

. 468468 2:23 э 0۵ 

. 400901 09 S26 

. 373874 0.4 53.4 

3559256 021 5 9 

. 346847 0.0 54.0 

. 324324 00 54.0 

54.0 ۷۵ئ0 2001201 

2152152 O 54.0 

. 054054 00 54.0 

9 

00000005 
010101010101010101601010101010101 
ον. το ου -4. 899 0. 764 5. 042 72 ۷ 5.412 
9 
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. 468468 
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ك۶ 


PROGRAM 
112 ELEMENTS 


JET - WING COMPUTER 
16x? 


BORN ON RN OO 80€ ک پز کپ ہے ص چو جج‎ ٌ h hk n í. í ú . 4 A í“ í. x h جج‎ 


AND CAMSERED CASES; 


ΑΝ‏ ہچ پر پر بے ہر ہز پر BN‏ ہو ور وو یر عو وو یر ےرک ور یر یپ و یرےعیریو ود-ور 
EVD‏ 


VOYAGER WING FLAT PLATE 


PROGRAM OUTPUT DATA FOR VOYTEST.DAT 


ooooowo 

ООСОЭОҒГ-(40 

نت ل() یىی ت ت نمیم 
Оооо о‏ 
2ooOoo:nuo‏ 
аоооштчоо‏ 
ЭЕ л. ON‏ 
лОЧЦОЭООО‏ 

JM aym 

Om 

at 

ما 


хо بی ت ہی ات‎ O 
OOOO 
—-— Or-6)r-6)0 
۲ ت مے ٠ہ تہ تن‎ 
Сї © ی م یں ف‎  ےح‎ 
LuJ— O OO S S ƏOƏ 
), ° +> ° < + < * 
Ээочооооо 
һ 


пинини и 
ZU асас 
dust < 
а. ے‎ 
до 9 


ARE 
As 


5522 


5 


1825523 
6607 


^ 
“- 


0.18 


0. 
0.0 
0.0 


TANLE 
TANLE 
TANLE 


0.034685 
0.036787 
0.039059 


1 
CHORD 
CHORD 


0.054655 
0.055856 


е 

0 

112 
000000 
000000 


ن بےمہ ن о ~ О‏ 


- 
т 


0.019520 


s 
» 


ENT 


- 
- 


ND — O @ مہ‎ еч О 
e 


OC FFE Oulu 


NR OW 
NCASE 
ІЗҮМ 
IPRIN 
JETRE 
IGTYP 
IH1NG 
200 


ОӘСІСІЗ ОО 


000000 
000000 


NUMEER OF WING ELEMENTS 
168 


TOTAL NUMBER OF ELEMENTS = 
ΝΝΝΜΝΝΝΝΝΜΝΜΝΝΜΝΝΝΝΝΝΑΝΑΝΑΚΝΝΜΝΝΝΑΝΚΝΝΣΜΑΝΑΛΝΜΚΑΝΚΜΧΝΑΝΜΝΝΝΝΝΝΝΝΝΝΝΝΝΜΑΝΝΝΝΜΝΝΝΝΝΝΝ و مر ید‎ 


66 JET ELEM 


٭ہ ن یہ ن ن تث +> Y‏ 


ELEMENT GEOMETRY DATA AND FUNDAMENTAL CASE DATA FOR FUNDAMENTAL CASE 
دک طم دد ادغ کد اام مهم د ماک ووغه اددج دجون‎ OM NAME R PARANA AMHR MAR ARR م لظ‎ оныи 


м 


NO JET 


0 
Y 


һин 
Nw 

а ких 
NW 


2 
5 
ТҮРЕ 
THIS ROW HAS 


NTS 


- 
- 
- 


SECTION 
WING ELEMENTS 
SECTION 
WING ELEMENTS 
SECTION 
WING ELEMENTS 
SECTION 
WING ELEM 


мы” 
ИН» 
иим 
"nun 


0.025758 


TANLE 


0.050650 


Oo O OoOO 

оооо о 
кю gG.,y— O O 
ہے‎ 


تث ںی ن رن ت ں 


ОСО ж. жэ Кє © © 
O O O O O —= O — 
„© 
oo 


o‏ ہک ح ہہ ن ںہ 
Or OOO‏ " 
mm (Ot JOO‏ 
пос. ооо‏ 
~e NOOO‏ 


Faqooo-oorx 
х 


f1:0(10 O 


mR re OO 
ن ں  ) دہ‎ оо 
Oma è © مه‎ o ө e 
مہ ح مہ ت ت ت کے مم‎ 
tie 


с να +> ° ° < » e 
OOO-O0(! 
1 
з 2 
a 
3 مھ‎ ο) αμ! 
x xuat Qa. 
un аши > 
t3 mi 
к- 
zz 
ош 
^£ 
-ш 
о-1 
шш 
e 
о 
x Z 
are 
e: 


0.025000 


E 
= 


TANLE 


0.057958 


مہ ن مہ ن ت ت "تو 


оо 


OOO OOO 
H ooooo 
ت0 ھ۴ (۱۰ م۲‎ O 

Ot) O O‏ ال 


LE 
0 
0< 
б 
0 


95. ο 5 ο » 


Q i O O O 
(PIRIS ESES) 
.ОСЧЧООО« 


un 
o 
J Oooo 
ما‎ 
© 


GIO OO‏ انا 
O Il mais eC? O‏ 
"ОСО‏ 
OO‏ 1-3 
نں تب نہ ن ت ۷ یی 


σι αυ о 
`x 4 OO O + O — 


X 

ж 2 

ж 

ж (а=? 

xXx Wa- 

`о لیا با‎ 
N ш 
e 

= 

ош 

--Σ 

-ш 

C .J 

шш 

Uu 
9 

х 2 

# — 

az 


0.027778 


TANLE 


0.065165 


τ 


м. 


4 


wey SECTION 
WING ELEMENTS 


x 
з 
o. 
e 
r 
° 
. 
° 
" 
ш 
ل‎ 
2 
< 
E 
m 
сэ 
ea 
m 
™ 
о 
. 
o 
" 
a 
a 
o 
I 
o 
ت ےت ں یت‎ 
Sun o oo 
mw ON mOO 
~ جح ت.-- 0ج‎ 


0.000000 


TWIST 


Qu OOOO 
ооооо 
>W esee o 
O ز) ن مہ ن نہ‎ 
Ж 
x2 
x 
x ری‎ JO) 
~*~ ®t b= 
o AW wW 
e m 
к 
= = 
ош 
--Σ 
ш 
O J 
шш 
ο} 
о 
х 2 
= — 
x X 


0.027778 


0.077778 ТАМЕ = 


CHORD s 


ت نپ ہی ن ےہے 
o o.ooo‏ 


0 
0 
0 
1 
0 
1 


59 


а иии 


ини SECTION 
WING ELEMENTS 


S ROM HAS NO JET 


` 
. 


TH 


0.023611 


TANLE 


0.079580 


ооо © Ое. О ч 


O 
оо 


OOLNOOO 

“ OJ OOO 
ғ-М1(4090 

_J ú OO: xO O 
— “УШ OO 
<q i: O — O O 


а e * eee 
- Q O O O —O — 
xe 

ш 

L 
““-ООСОО«ОО 
e O in о 
فی‎ Min OO 
e ین‎ QO C2 O 
o OI GOO 


. 5 > è où 


ооо O 
O0 OOO 
o (PESIS ESES) 


ن ن مہ ن ری 
tu. т. à‏ 


и СО © О ~ O т-а 


о 

а. 

- о 

-j QOt-ooo 

ші оо ооо 

Li n — نت ہے‎ 
Ë `o m Qo O 
оу оо 

—O O‏ نہ بب ی 

fee o © © e ө 


озооо-о- 


эк 


Р. 
м 
. O — O OO 
e «2090900 
0Ο) Ως O O 
mw OOYY O O 
" о сог- о О 
Ce OQ oo 
>и co c ot on » 
OOO-oO(i 
3 
SZ 
3 
% ΘΟ»: od 
ххшан 
о оши); 
=n 00 
- 
سے‎ 
ош 
ны? 
-ш 
ω 
ши]! 
v 
o 
x Z 
» c 
si 


ТҮРЕ 


шин SEC hICN 11 
WING ELEMENTS 


0.025000 


TANLE 


0.080631 


оо * е s è O 
соо O مہ ن یہ ن ن ن‎ 
“oO 


eoo 
. 


eO )1م ون‎ O O 

" OOOO 

r QO 4O O 

4» O0. MOO 

O‏ یا یی مے 

“ών ο ο 
α΄ «+ © es + 5» e 


O O O — O —‏ گے ہر 


xe- 

ш 

Js 
OF OCIOOO 
ыл ооо о 
—  300.-40€0 


ooooo-co- 


оо оооо 
О.О ооо 
1очосіоо 
OOOO 
соо 
×۱ ۲ ہن‎ оо 


CE 


OOOO 
ο ΟΟΟΟ 
O GOOO 


Nm e o o e o о 


о и... о >н 


мэ 


0.000000 


ТАНГЕ 


0.081081 


CHORD s 


81 


پہ ن یہ ن ں ن eO O‏ 


иии 
NW 


^ 
- 


THIS ROW 
SECTION 1 
WING ELEMENTS 


мин 


0.000000 


ТАНГЕ 


0.081081 


4Ο‏ مم 


ON mMmOm~NOO 

мч ооо 

+ NOUN OO 

Ξε; 
С4*-+ * © o © 
ہ ہہ جا‎ о. 


0.000000 


TANLE =z 


0.081081 


CHORD 2 


r.0(00 
-.Ju"oopoo 
ms YOY OO 
< r O — O O 


G w — O — O O 
зоосоо 
I-t-oO oo 
ن ں مہ ن ن یی مم‎ 
Ore : o 6 o o e 
f41XOooo-o0-— 
= 
wo 
сз 
* نی ےی وت‎  ج‎ 


шо оооо о 


m) оон-оо оо. о O 
NOON OO һмоочоо 

Qu OOOO ON оо ہ ن‎ 

> ooooo ooooo 

>n оо в » о и 4.... e 
ооо! ос? ооо. О(г? 
=£ а x 

«2 + = Z 

* з 

x 00» J«^ dulX » e+ tI did 
ххша на. оО xX Uo — ¿L 

5» AWW>asy Ould > 

ہر ری ( مہ C) me‏ — 
-! ہہ te‏ 

Pars =z zZ 

ош row 

— к 

ш -ш 

ы 9 O ل‎ 

шш шш 

N (9 
t (9 

x Z * Z 

gre ъ 

xz az 


THIS ROW HA 


ο 

о 

о 

ο 

о 

e 

e 

" 

us 

لے 

= 

< 

= 

e 

00 

o 

e 

00 

e 

ο 

" 

а 

a 

о 

ас 

O 
оммооо 
ОҒ ООО 

=m QQO-—00 

ح 0 نر رو Ὁ‏ 


O O‏ .ہے جو نہ 
O QQ O mOO‏ — 
@O + + ° ° °‏ 


оо 


Qoor.ooo 

пн ошооо 
ro coo 
jSunoocwoo 
~ уроо 
40 о - о О 
Ὁ ese 


no 

оосооо 
A O wm O oo 
ہ عیب ہ تی ےے‎ 
ш осос4шоо 
- ғ-ЧОО 


 Ὁ‏ ٭ 
jo Gono‏ 
т‏ 


ο ος) نچ‎ 
مہہ ین‎ ООО 
f10(40«25 

‘© (100 00 O O 
ОСО <%98 7 OO 


ооо е » 


054054 


и 0060-0 


а 

-о 

-J Opooo 
ш оосоо 


біліедедеіеде) 
Drea 96 9 o » ο 


ооо О ~ 


сак 


ou OOOO 
ооооо 
>U o.e oœ 
ООС ن‎ ٦ 
ED 
а 2 
ж 
а (еда 
>x X Wâ t 
ыл Al uJ 
— 0) m 
к 
= 
ош 
چےمےم‎ 
F- uj 
oz) 
шш 
1%) 
o 
х 2 
ж ma 
κ < 


THIS ROW HA 


0.000000 


TANLE 


0.081081 


с> » Ὁ 

οοοοο-ο- 
.о 

ہہ 


* 
Qoor.ooo 
и Owooo 
осоо 
_J wu G O оо 
νε YJ OD OO 
A 0= Om OO 


OJ O OO 
Ω ن تں ہہ‎ 
{ΟΙ} 
W OOOO 
رہ‎ ΟΡΟ oo 
x nw Ot O oO 


" 9000707 


-о 
J Oooo 
Ww ooooo 
GY о-оо 
“0523500 
Б һо у о О 
Ëy (0 O O —@ O 
М-ы. ο : o ө e 


OdXooo0-o0rx«4 


ş$- o оосоо 

uo ooooo 

оо О О 

со оо O O 

Ow" ooi.oo 

ooooo 

ο >U e.s es o 

ооо ое 
A 
7 

3, 

x Wer 109d 

ж ж Шо. 

о ашиг 

e өз 
= 
uu 
ош 
X 
F uj 
C J 
шш 

4 

e 
» 2 
» e 
x x 


10 


CASE 8 CASE 3 CASE 


CASE 7 


“ 
6 


CASE 


м 
0.034685 


CHORD 
CASE 5 


ооооооооооооо ооо 
ООСОООСОС«ОООСОСООО ООО 
оооооо о ооо о Оо © СО 4 
зоооооооо осоо осо оо О 
уоооооо ооо оо ооо < О 
ΞΕ. ΕΕ - 
AE UO WW RE eure 


oocoooooooooooooo 


ÛU eC AN J A-O 09 С. О = (MMT مہ‎ 
PA ra r —— — وپس‎ 


CASE 


1 


سر M МОМ‏ ہے م جک جا ض ہز 8 ام ےس پا ھج بد سے ضظے م جن م جج بد ید یر ور ہر یر" ×× 
SECTIONAL JET ELOWING COEFFICIENTS‏ 
h. k. R. d ۳‏ ۱خ مم ہے و( hiq N h qp nn ban‏ 


м 
CHORDWISE LOADING FOR ALL FUNDAMENTAL CASES 


RMB RRR aK wR MMR RRP RRR RP ERP KR Ree KK hr ال‎ í h. 5 ü N N: b ` N N 


- 


NA Mh N k h h hi à à RON NU 5.8. 
- 


ж 
SECTION 
CASE 


0 
THIS ROW HAS NO JET 
CASE 1 


TYPE 
XB 


WING 


O O ن‎ О < 
eO O O (O O O C 
ооооооо 
ооооооо 
ооооооо 
ооооооо 


ооооооо 2 


ооооооо 4 
оооооооо 


ооооооо 


ооооооош 


ооооооош 


ооооооош 
ооооооо _ј 
ہ نم م| ن ںہہ‎ 
оооооо о «4 
оооооо оі 
оооооо оц! 


ооооооо 


OK Mawes 
“Ovrom 
ООО ОҒ- 
DUNN AN ~ ο 
ن ہہ ہہ ں و وو ہ‎ 
оооооо 


° * 9 ° ù » 


Сэ Сар с 
وو ہ صضع ہہ یں ین‎ 
جو ج٥٠ ےم یع تن‎ 
ی یی ہیں‎ ۶ 00 


ооооооо 


e CI)rÓ J ما اضیضی‎ ٠ے‎ 


CASE 10 


а 


е 


CASE 8 CASE 


CASE 7 


^ 


5 


0.036787 
CASE 


CHORD = 
CASE 5 


0.989489 


CHORDWISE LOADING FCR ALL FUNDAMENTAL CASES 
CASE 4 


h %4‏ سر ú ü x f Dj JÛ x h‏ 4 ہے غذ جز مم i o N‏ وز N a ü ai PÛ‏ کر یرم ہرم وم ور جج ک N h‏ ور وج ور ورس و کرد قباس ےط 


^ 


MM M Ea E MN MM M ہو وو ہو ہو ےہ‎ ES ہی ہو مہ ہو‎ MM MMM O M W MN MM MN M C vC v v vov 
- 


5۲100 


м 
CASE 


CASE 1 


XB 


WING 





ооо о с о © 
ооооо о © 
ооооо оо 
@ O O O O c O 
оооооо 
оосо ооо 
ee ® 
ооооооо 
ооооооо 
ооооооо 
оооооо о 
оооо ооо 
ооооооо 
ооооооо 
@ ° ө өз о ө е 
ооооооо 


оооооо о 
e O O O O O O 
@ O GO O OO 
@ O O O O O O 
@ O O O O O O 
eooooooo 
е ее еее е 
ooooooo 
оооо оо о 
ооооооо 
ооооооо 
оооооо о 
оооооо о 
ооооооо 
€ ο ο 091 ` 
ооооооо 


ооооооо 
ooooooo 
ΟΟΟΟΟΟΟ 
ооооооо 
оооооо о 
ooooooo 
ooooooo 
ooooooo 
ooooooo 
ΟΟΟΟΟΟΟ 
ооооооо 
ΟΟΟΟΟΟΟ 
ooooooo 
ooooooo 
وہہ ہہ ہہ‎ 
ح ہ مہ ہہ ہہ‎ 
ہہ ہ ہہ ہہ‎ 
ہ ہہ ہہ‎ о 
ооооооо 
ооооооо 
. . . . * * . 
ooooooo 
ooooooo 
ہ ہ ہ ہہ‎ ٥ہ‎ 
ooooooo 
ooooooo 
ooooooo 
ooooooo 
. . . . . . 
ooooooo 
NX OO ruo. 0 
OD AI оло 
-< 05-457 700% 
омо о.о, 
uui КЕТ Ты 
رح‎ ооооо 


ee ө ө ө è ө 


کی میں مہ ہہ وو 
— سم aS‏ 


LOADING 


DING EDGE 
90 


DETAILED СЕ 


o.‏ وہ ی رح 
وہہ نی٭ ہہ 
Ото а:‏ .0 
с сіс: ло‏ 
rH ο ΟΙ n‏ 
кэде‏ 


— C410 X ص‎ 


CASE 8 CASE 9 CASE 10 


CASE ? 


x 


ہیر ہو Oe‏ ہو ید اہو ہو ہو ہو жуы нн EEE EW EH‏ ہو ہی ہو ہو بیو ہیں ہو 
CHORDWISE LOADING FOR ALL FUNDAMENTAL CASES‏ 


м 


07039029 
CASE 6 


CHORD 
CASE 5 


0.959459 
CASE ὁ 


ү 
CASE 3 


- 
- 


WoW ο Σο V9 M M M ш у шш шш шю ыш ш عا عا إا عا‎ M 
з 
= 


Sec LON 
CASE 1 CASE 


XB 


WING 


ooooooo 
оосооооо 
OOOoooo 
ооооооо 


ооооооо 
OOOOOOO 
OOOOOOO 
OOOOOOO 
OOOOOOO 
ооооооо 


ee @ © © э Q 


ooooooo 
Oooooooo 
ооооооо 
ооооооо 
ооооос о 
оооооооә 


ооооооо 
ооооооо 
ooooooo 
OOOOOOO 
ооооооо 
OOOOOOO 
. е . . ° . . 


نب ت تم وی ت وی مت 


یہہ ہہ ہ ہہ 
ооэооооо?‏ 


ooOooooon0ul! 


OOOOOOO 


OOOOOOOU 
OOOOOOOZ 
م نہ ہہ ہ ہہہ‎ 
ооооооою 
» eq 
ооооооош 


o oè‏ ° * ےد 


ооооооош 
SOC OOOO jJ 
O O O O OO O— 
о о оссо о < 
O O G) O O O O ہز‎ 
ооосоооош 


а е . ә € ә э 


— 9 0: ue г 04 
Oro orga 
N= O o DN 
ON, J J J ~09 
CYA: Or TPR 
t)—3— O0 00 


O-—t(1wM 019-9. 
Ow tc1Ootc1c0 
QrCIr 9.0 
Oo Otimuinro 


NDOT on 
а 6 e а ) Ср 


ғ-о-а-о 
™ D'or. 63 
mye One 
м Ом мш 
t= tn р суо 
NM 1⁄4 (4(4— 


0.014820 
0.029640 
0.059280 
0.074100 


— C) уй 


o 
وسم‎ 
ш 
v7 
4 
o 
o 
ш 
1%) 
< 
O 
ю 
ш 
ue 
«t 
o 
~ 
ш 
2 
< 
o 
“ғ 
X X Xx go 
x ж р 
ж z MU 
ж (7 а 4767 
x ui x O < 
*( 4 «0 
κακο 
x Ox 
ж x 
ж аж иц 
addy 
z k- X Cu 
4 2 x 
x ui» Old 
σα τι 
z < ج‎ O 4 
x Ox Q 
x Zax 
* 2x 
x LU. x 
ж ж 
x ΓΙ 
x J‘ O‘ 
x dto 
x ж +] 
x mr x G. Q) 
* O + O) < 
zie +) 
2 x Oo 
л (“+ 
к ж 
жох n 
£ (2s 
A d*»"m 
Же: 
x Jj" ш 
a ж ο) 
καμία < 
хоз ο 
Xo X v 
ata 
а Oa 
л (кї Z 
меже) 
x I «4-61 
zoak 
ж ж СОЦ] 
x & uit 
کے( ا مج‎ 
ο 
e 
ш 
о 
«t 
o 
£o 
x 
#4 


WING 


ооооооо 
оосооооо 
ооооооо 
ооооооо 


ео ә е % و‎ % 


ooooooo 
ооооооо 
ΟΟΟΟΟΟΟ 
OOOOOOO 
OOOOOOO 
ооооооо 
. » . * . . % 


ооооооо 


کہ ہ ہ ہ ہہ ہہ 


ooooooou 


ооооооош 
ооооооо 
оооооо оюн 
ооо ооо 4 
Oooooooot 
oooooodoul 


ANMO m Lñ N + 
fx C J OS 1 J r= r— 
ے تن مم‎ uu ud 
σσ MN ~~ D — 
Це + χα] 
ت ن نین ن یہر جم‎ 


. . . 9 . . . 
ooooooo 


@ O O O Ə O 
Oooooooo 
Omi Oa 
ОуҮСсіОс:ІООО 
Om (1 o0 
Оо یں‎ IMN! gw 

. -. . . * . 


ooooooo 


CJM ‘OR 0O 
€4€4€42C4C4Cu C1 


иг‏ ود یم 
буе) оо! Су‏ 
DNNN O‏ 
OJO DN‏ 
——DO eO‏ 
لے بر ”تی 


. * . 
οσο 2ο 


C412 M LU 


о 
= 
ш 
©? 
ч 
O 
с 
ш 
о 
«t 
о 
ο 
ш 
e? 
< 
o 
ғ- 
ш 
с? 
4 
O 
о 
* X vo 
ж an 
x s Oui 
x (€) 5 uU 
x L.) > O < 
љо к 0) 
* < xO 
ъ() ж 
x ж 
э]! 
adr 
x r- (un 
ΞΕ ἘΠΕ 
x uj + O uj 
5+ 1с? 
3 C+ 0<4 
LC O 
χα Z > 
кс» 
Sik 
3. > 
»> {10 
з J? ON 
*-o f 
* *(4 
» (т ou 
Э Озғ-4 
su s) 
3 > С 
>2>2( $ 
کے‎ Z s 
amo η 
» OY 
241% >һ> 
> (90% 
= Zine ш 
3 + 1» 
> ul +* 4 
ھچ‎ ں٦‎ 0 
» — 33 Lñ 
Στα 
» (25 
s x< + Z 
x= O Y O 
>x ο νε) 
* (Q 3 F- 
3 3 Ot 
x 3 Wt? 
aeRO 
o 
ce 
ші 
+? 
< 
o 
a 
x 
4 


WING 


ΟΟΟΟΟΟΟ 
ت ہ0 نت ەہ ن ےک‎ 
ооооооо 
OOOOOOO 
оооооо 
ооооооо 


оооооо о 
оооооо о 
ΟΟΟΟΟΟΟ 
ооооооо 
OOOOOOO 
OOOOOOO 
+t o ù ù o o o 


ооооооо 


ооооооо 
OOOOOOO 
ΟΟΟΟΟΟΟ 
оооооо о 
оооооо о 
ооооооо 


ооооооо 


оооооо о 
ооооооо 
ооооооо 
ооооооо 
ооооооо 
ооооооо 

. . . . е . . 
ooooooo 
eooooooo 


Oooooooo 


ооооооош 


ΟΟΟΟΟΟΟ 


ооооооо (5 
ооооооо 2 
O O O O O O O + 
ооооооо(} 


оооооооші 
Όοοοοςσοο.Ι 
O O O OO GS O+ 
eO O O O OQOO R L 
ООООО ООН 
ооооооош 


ooooooo 
ооооооо 
O "(JI ‘OI O: 
OJtCIO(cioQo 
Oir-CIr-9-N 0) 
۱۱۱۸ء ہ تہ‎ 00 


9: OCJt) M Un 
τν κ УКЭ УҺ 


DGE 


н чну 


о 
ہے‎ 
ш 
о 
ч 
eo 
с 
ш 
49 
ч 
о 
о 
ui 
о 
«t 
o 
~ 
ш 
о 
ч 
O 
(ға) 
x X0 
x А 0- 
ж жғ-ш 
٭ بب ٭‎ 7 
ж шал о 4 
πολι 0 
x < 4 O 
zor 
Ж ж 
x* Ja m 
zas 
*— + Gun 
я7%ч4( 
* ul* Qui 
x x tX 
x <a O «€ 
x (24 [8] 
x Zr 
z Dx 
хи 4 
x 4 
4 λεω 
х 140% 
ж «+ о 
x t Juli 
ж (x + {427 
& O о“ 
.لاڈ‎ ο 
ж о 
awe 
ж 2% 
Kee? η 
ame 
# < < >r 
4 O 4 
x pt ui 
4 4 с? 
x Ul ¢ «I 
ж ç? € < 
amut `o 
*x* σα 
з Суч 
XOT Z 
* O + O 
aI rc 
* (x t- 
a ٭‎ (Oui 
А & uic? 
ж х 4а 0 4 
9 
سے‎ 
ш 
0 
«t 
O 
m 
ж 
سے‎ 


WING 


@ O OC OOO 
ooooooo 
86٦ہ نب رن ں ں ت‎ 
eooocoooo 


. ° a е». » 


ООО ООЭО 
оооооО оо 
eoooococoo 
@ O O O ос о 
ООО ООО 
ooooooo 


Oooooooo 
eooooooo 
ooocoooo 
Oooooooo 
ооооооо 
ооооооо 


ΟΟΟΟΟΟΟ 
ооооо оо 
ooooooo 
ooooooo 
Oooooooo 
Oooooooo 


eee ө  » 5 


Oooooooot 
ооооооо? 
@ O O OO O م؛ ہ‎ 
ооооооойю 
ооооооо 4 
oooooooo 


ооооооош 


ооооооо 


оооооо о (9 
ооооооо 2 
оооооо О + 
оэоооооойб% 


ооооооош 
Co000000_) 
OoOoO YO Or 
O O GÁ S O O O < 
S O O O O O O I— 
OOOooooul 


ооооооо 


ооооооо 
eooooooo 
оооооо о 
ооооооо 
ооооооо 
Oooooooo 


e ° © © ο ο * 


OCIO‏ حودمم 
ο ο‏ ری کی 
кыз JCD} € 4‏ 
COO0Q9 Jr» (1‏ 
یر ۱ تی رن NeCIeo‏ 
ہ نی م| نہ یوٌ 


oooooooo 


ооооооо 
ΟΟΟΟΟΟΟ 
Onin Ono. 
ONCO(C(CIO(Q 
Οι imo THO 
O Ot 1munr-o 


оге 000 ончу 
یت ۳ :۱۸م‎ I 


uo 0t 
S gun on 
Om 
24096102 
УК OWL 
ω λος (9 


ooooo 


ow Mo pvp e Woo de poe wow oo o o o oe ον. νι να‏ ب إل 


о 
ہے‎ 
ш 
e 
«ἴ 
o 
о. 
ш 
ç? 
< 
O 
оо 
ш 
۸۵ 
4 
ο 
ғ- 
ші 
о 
< 
O 
ما‎ 
А 3-00 
$ مم‎ 

3 ناما‎ 
ç) +s * 0€) 
ur Od 
Оз» «0 
чз о 
€) * 

ж 
Ja ١ 
as 
з би 
Z (tr 
La * Ot 
"0" ۷ھ‎ 
Is Od 
О + O 
zd еЕ 
Da 
u sa 

x 
Jw 
=j ~N 
IIn 

3 Dui 
aren 
Озал 
и.» -O 

. о 
O 
е 
eat oi 
ЕК 
а > № 
Or 
-» ш 

» t 
ul* 4 
«74 о 
νε κ کر‎ 
Жз 
Os 
ον ο 
О» о 
X + Co 
O 5 - 

+ Q uj 

3 uit 
ж з (7-1 

o 
=~ 
ш 
о 
d 
[9] 
m 
x 
+ 
9 
Z 
ba 
Ж 


Ooooooooco 
ооооооо 
ΟΟΘΟΟΟΟΟ 
ooooooo 
ооооооо 


e a s ھ٭‎ *? o o 


ooooooo 
ООООСОСОО 
بے‎ O O OO OO 
ooooooo 
ooooooo 
ооооооо 


° + © 9 ө o е 


ооооооо 
O O O< OOO 
ن ہو‎ O O CO OO 
OOoooooo 
ооооооо 
ооооооо 


ооооооо 
ооооооо 
ооооооо 
ооооооо 
O O OQ OOQOO 
ооооооо 


. . * . . . . 
ooooooo 


e e * ө © o ө 


ооооооош 


ооооооош)і 
οοοοος 
ОС ОСО ОО-- 
ن ہ ہہ نپ نں نہ‎ > 
OOOOO OOF 
OOOOGOOL 


ооооооо 


оооооооә 
OOOO OOO 
oooooo«d نى‎ 
eO ن ن ت ت نہ‎ 
وت وہ‎ 220 
eooooooo 


nes‏ رر 
У» O -O O r.3 O.‏ 
c0 P P — f S —‏ 4 
С. СЭТ ҺГ С‏ 
C4— 00i r2 €4‏ ہف 
ксі осоо‏ 


ооооооо 
OOOOOOO 
O — CN OPS O. 
O N (O O Ὁ 
Or-€i^-0- x à 
OONAN 

. . * . . ` . 


ο‏ ںین تہ 


Ër un ошл 
۴ئ٤١‎ JUI? 
ہا‎ 00 UA C4 
“ONGO 
Mma Tt) 
αλα λα.) 

. . * . 


. 
ooooo 


ooooo 
сз ооо 
ہر( یھو‎ 
NI OO: 
— CIN ur 
ооооо« 


ооооо 


N‏ مے 


о 
«-- 
ш 
«5 
ч 
eo 
o 
ш 
t? 
ч 
O 
© 
ш 
V 
«t 
ο 
~ 
ш 
Uu 
< 
O 
m 
χα (ο 
ж ze 
x x "mui 
x t) x r< ۸۸ 
z ui z O < 
жх *() 
x <44 O 
x Ox 
ж ж 
KE οκ η 
x +٭‎ 
X k- x (aun 
x Z 2 r 
z Wt ow 
x > vY 
захо 
zna O 
* Z x 
x Dx 
хц х 
ж x 
х јх о 
¥ Ja OY 
x < t 
a х ош 
x OC x ‘ON 
& ں‎ 
xut ο 
x * O 
x O 4 
x* Z x 
жох и 
ж С) ٤ 
* d$»? 
κος 
ж Е ш 
ж x o 
z ια «X 
x ç) * 0 
A t3 £ & 
x í 
ж (2 4 
x Yt 
x Os O 
x I ç =+ CJ 
ж (0 а ~ 
ж 4 Qui 
ж ж цус? 
z x x t) < 
O 
م‎ 
ш 
Oo 
< 
o 
m 
ж 
و‎ 


WING 


OOOOOOO 
оооооо о 
оооооо о 
ооооооо 
оооооо о 
ооооо оо 


0 
0 
0 
0 
0 
0 
0 


оооооо о 
ооооооо 
ооооооо 
ооооооо 
ооооооо 
ооооооо 
ооооооо 
ооооооо« 
0 و ہہ ہ ہ‎ ο 
ооооооо«о 
ooooooo 
بت ون تی یت ت 9 ے0‎ 
ooooooo 
. eee ò% o ө 
ooooooo 
ооооооо 
ооооооо 
ооооооо 
ооооооо 
ооооо оо 
ооооооо« 
. * . . . * * 
ооооооо 
ooooooo 
оооооо о 
ооооооо 
ооооооо 
ooooooo 
ооооооо 
.е ее * * » 
ooooooo 
Oooooooo 
оооооо о 
ooooooo 
نہ ٥ہ ہن ہہ‎ ο 
оооооо о 
ооооооо 
. * 4: $9 ٭‎ 
Oooooooo 
eooooooo 
Oooooooo 
ооооо оо 
ооооооо 
ооооо о о 
ооооооо 
. . . * . . . 
ہہ می ہ ہ ہہ‎ ٥ 
оооооо о 
O O O O O Ə O 
оооооо о 
оооо оо с 
оооооо о 
ооооооо 
ооооооо 
оооооо о 
оооооо о 
оооо ооо 
ооооооо 
ооооооо 
ооооооо 


О ЫЗ с)‏ ہے ہے ہی 
юса OOOO‏ 


+» . . e . * . 
ооооооо«о 


ооооооо 
ooooooc 
Q — C4 соге О, 
ہ ۲ہ یہ‎ 0W 
Ornr-(4^- 9 Qo 
ο (ρω фә 
. • . » . . . 
ooooooo 
O — N wo 
ہا ہا ہا ہی‎ щл ہا‎ 


DETAILED LEADING EDGE LOADING 


ορ-ο (О 
: OO G. r= ےہ‎ 
1کی0 ۲۰3 یی‎ 
CIN CI `0 
(ос, 
ریو ”ما‎ 


0.014820 
29640 
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и CHCRDWISE LOADING FCR ALL FUNDAMENTAL CASES » 


ο ور‎ h... h... h... ےہ‎ bnn N > мо» ШОМ Ы а ہے ور سے‎ h ضر‎ 


4 خر ور ور پر و وج کر یر" ۷ک یر ور ور ور وو ور ور ور وو ور ور ضر کرک پرور OR‏ پر پر ور وج یپزرو-ور طرضطر + مر×_ مم 


= CHORDWISE 


LOADING FOR ALL FUNDAMENTAL CASES » 


و جم ور جخ ہر جخ و ور ےد ور جو و ا عو مد جح N N‏ ہج جم بج ἣν ἂν‏ ور W Va hh... d. bh ΝΜ ἊΝ κ.α κ‏ 


SECTION 15 Y 


0.162162 


CHORD 


0.081081 


SECTION —9 Y = 0.40090] CHORD с 0.077778 
SN XB САЗЕ 1 Case С CASE 3 CASE ὁ CASE 5 CASE 6 CASE 7 СА5Е 8 CASE 9 CASE 10 
57 0.000000 0.362243 0.000CCO 0.000000 0.0C0C00 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 
58 0.074100 0.210506 0.000009 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.020090 0000 
59 0222200 9-112318 0.00C000 0.000000 0.000600 0.000009 0.000000 0.000000 0.000009 0.020000 0.000002 
60 0.370400 0.080973 0.000000 0.000000 0.000900 0.000000 0.000000 0.000200 0.030000 0.C00000 0.020С20 
ol 0.592600 0.051787 0.000000 0.000000 0.00C090 0.090000 0.000000 0.000500 0.000000 0.000000 0.000200 
°2 0.740700 0.026404 0.000300 0.000009 6.002000 0.000000 0.000000 0.000000 0.000006 0.000000 0.000000 
65 0.888900 0.021514 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 
DETAILE EADING EDGE LOADING 
1 0.014820 0.508011 
= 0.029660 0.254480 
i 0.044450 0.284422 
6 0.059280 0.241180 
5 0.074100 0.210506 
غو اټ‎ v now ww ہو و وو" عو و مو مد وو مو ور مدع مو مو و ور ا عو یر ہیں ور پا از غا پا ور عو ہر عو و عو و عو یں‎ NÚ. úW 
» CHORDWISE LOADING FOR ALL FUNDAMENTAL CASES ~ 
9» » www psu» vw pn v 9 9 » y NM M ú w V MN wA VNM КЕ КАЖЫ ЫШ КЕШ И وپ‎ 
SECT 19N 16 Y 0.272874 CHORD = 0.079580 
πο 1 х8 СА5Е 1 CASE 2 CASE 3 CASE & CASE 5 CASE 6 CASE ? СА5Е 8 CASE 9 CASE 10 
64 0.000000 0.345106 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.090000 0.000000 
65 0.074100 0.211294 0.0C0000 0.000000 0.000050 0.000000 0.000000 0.000000 0.050000 0.000030 0.000009 
66 و00۳‎ ου 0.112823 0.090900 0.000000 0.000000 0.060000 0.000000 0.000000 0.000000 0.000000 0.000090 
67 0.370400 0.080337 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000060 0.000000 
68 0.592600 0.050869 0.000000 0.000000 0.000000 0.000000 0.090200 0.000000 0.000000 0.000009 0.000000 
69 0.740700 0.036120 0.0000C0 0.000000 0.000000 0.000000 0.000000 0.000000 00000 0.000000 0.000000 
70 0.888900 0.021182 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 
DETAILED LEADING E LOADING 
1 0.014820 0.510777 
Š 0.029640 07255205 
3 0.044400 0.285775 
4 0.059280 07242210 
5 0.074100 0.211284 
ΝΗΝΗΝΜΗΥΝΜΝΜΜΗΝΜΗΜΝΜΗΜΗΜΗΜΗΜΝΑΜΑἨἨΜΝΜΝΜΗΜΝΜΝΜΝΝΜΗἨΗΝΜΝΜΝΝΜΗΝΜΝΝἨΗΜΝΝΗΝΗΝΝ Ν 
w CHORDWISE LOADING FOR ALL FUNDAMENTAL CASES » 
heh RRP RN NP RR eK RRR سر ورک‎ ак N.A. b í f N N b. x یر ور وض‎ f 
5 11 M O 355556 CHORD 0.080621 
1 XB CASE 1 CASE 2> CASE 2 CASE 4 EASE S CASE 6 CASE ? CASE 8 CASE 9 CASE IO 
71 0.006000 0.741790 0.000000 0.000000 0.000000 0.000000 0.000000 0.C00000 0.000000 0.009000 0.000000 
72 0.076100 0.210852 0.006600 0.000000 0.000000 0.000020 0.000000 0.000009 0.000000 0.000000 0.000000 
73 052222099 0.115276 0.000600 0.000000 0.000000 0.000000 0.000000 0.006000 0.000000 0.0C0000 0.000060 
76 0.370400 0.080521 0.000000 0.000000 0.000200 6.0c0000 0.000600 0.000000 0.000000 0.0000C0 0.000000 
75 0.592900 0.050895 2.060000 0.000000 0.000000 0.000000 0.000000 0.090050 0.000000 0.502000 0.000090 
76 0.740700 0.025675 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000600 0.000000 0.000000 
77 0.883900 0.021087 0.000000 0.000000 0.000000 0.009000 0.000000 0.000009 0.000000 0.000000 0.000000 
DETAILED LEADING EDGE LOADING 
1 0.016820 60-۰061065 
2 0.022550 0.553467 
3 0.044400 0.282949 
ú 0.059280 0.261137 
5 0.076100 0.210852 
M V OW ow woe d. ww) ww Www V Ww Mw Wo y V Www ww y ow MW ww d 9 v CM OK C9 x “ç Ú 
» CHOROWISE LOADING FOR ALL FUNDAMENTAL CASES » 
یز ےی ہیی ور ےپ سب یی ے سے یں سا بب ود موی‎ ow ow oV ہب ےر پچ و‎ ove Moe oo w o عل کل کیا کا ایا پیا‎ wo Ww $9 www 
ЗЕСТІОМ 12 Ү = 0.246847 CHORD = 0.081081 
ТЫ 1 XB CASE I CASE 2 CASE <5 CASE 4 CASE 5 CASE 6 CASE 7 CASE 8 CASE 9 СА5Е 10 
78 0.090000 0.343009 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 
718 0.074100 1ء06‎ 5 0.000000 0.000090 0.000000 0.000000 6.000000 0.000000 0.000000 6.000000 0.000020 
50 9222200 0.8 2 0.000000 0.000000 0.000000 0.000000 0.000000 0.000C00 0.000000 0.000000 0.030032 
81 0.270600 0.080527 0.000009 0.009000 0.000000 0.0000 Ее 0.000000 0.000000 0.00c000 0.000200 0.002000 
82 60. 690 0.050938 0.000000 0.000090 0.000000 0.00000 0.000000 0.000000 0.000000 0.000099 0.00C000 
82 0.74С700 07056127 0.000000 0.000000 0.000000 0. 560600 0.000000 0.000000 0.000000 0.000000 0.003090 
84 0.858900 0.021080 0.000000 0.000009 0.090000 0.000000 0.000000 0.000000 0.000000 0.000000 0.009000 
DETAILED LEADING EDGE LOADING 
1 0.014820 0.507824 
È 0.029640 0.354557 
z 0.044460 0.284706 
4 0.059280 0.241555 
5 0.074100 ο 53 
AREY PR RRR EN RPP RRR RP RRR и 4 %4 
н CHORDWISE LOADING FOR ALL FUNDAMENTAL CASES = 
Rabanne hae مھ ود ح جح پر یے پز لہ ہم م و بے وو وو وم و جا ہر ون پٰڑے رم ھج۸)۱, و ہیں چد ید‎ а а e 
Solr Ten els Y 0.324224 CHOP D 0.081081 
1 X3 CASE 1 CASE 2 CASE š CASE 4 CASE 5 CASE 6 CASE 7 CASE 8 CASE 2 CASE 10 
8t 0.000000 0.267787 0.000000 0.000000 0.009000 0.000000 0.000005 0.000000 0.000000 0.000000 0.000000 
86 0.074100 0.213027 0.000000 0.0000С0 0.000000 0.000000 0.090000 0.0C0000 0.000000 0.000500 0.000009 
87 0.222290 0.112862 0.000000 0.C00000 0.000000 0.000000 0.000000 0.022200 0.000000 0.099¢C00 0.000000 
88 0.370400 07080982 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0س0‎ 0.00с205 
89 ο 535500 0.051286 ھ0‎ 0 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.002С02 
90 0.740700 0.026422 0.000000 0.0000С0 0.000000 0.000000 0.000000 0.000000 0.009000 0800 0.000000 
21 0.8383С0 0.021588 0.000200 0.000C00 0.000000 0.000000 0.009000 0.000009 0.000000 0.000000 0.009009 
DETAILED LEADING EDGE LOADING 
1 0.014820 0.514665 
2 0.029240 0.359071 
5 0.044460 0.288074 
4 0.059280 0.244168 
5 0.074100 0.215037 
HR RRR RRR RKB RRR RRR RRR HRN DO O JÛ DÛ JE Oe 4 
w CHORDWISE LOADING FOR ALL FUNDAMENTAL CASES + 
HRT KEY MR ور ہر‎ D ODE FO E NEO Mm n br Ην. وو ور و ور‎ Ον جح وج و ور ور و‎ ын 
SECTION 14 Y 0.261261 CHORD = 0.08108] 
1 XB CASE 1 CASE 2 CASE $3 CASE 4 CASE 5 CASE 6 CASE 7 CASE 8 CASE 9 CASE 10 
92 0.000000 0.352101 0.000000 0.009000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 
% 0.074100 0,015751 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000500 0.060000 
94 0222200 0.115229 0.000000 0.000000 0.000000 0.000000 0.000000 0.000090 0.000000 0.000000 0.000000 
95 0.270400 0.082035 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000090 
8ο 0.592600 0.051954 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000006 0.600090 0.000020 
97 0.740700 0.026962 0.000000 0.000009 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000020 
98 0.888900 0.021724 0.000060 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 
DETAILED LEADING EDGE LOADING 
1 0.014820 0.521084 
г 0.029540 0:26 2552 
5 0.044460 0.291650 
4 0.059280 0.247254 
5 0.074100 0.21575] 
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w THE PROGRAM HAZ REACHED NORMAL TERMINATION » 
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w THE PROGRAM HAS REACHED NORMAL TERMINATION и 
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JETFLAP INPUT DATA FILE DOUGLAS.DAT 


A FONR SAMPLE CASE %%% RECTANGULAR WING CMU = 


4. 500 4. 500 1. 000 00 009 
oe 002 1 1 

59750 0.88750 0. 68750 ο. Ὁ 

701, 1 

» 6 

0 000 0. 100 ОЕ 200 0. 500 0۳0 
0. 000 0: 100 0. 200 U 500 0. 800 
4. 500 0. 000 1. 000 

E11 

4 

1. 000 ]. 100 1500 3. 000 

00 

1. 000 1. 000 1.000 1. 000 

ШО 001 

ШО 10 

Ш9000 072 12104016) 

EE 2 10.00 3 10.00 
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200 1000 1. 000 U00 
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WITH STABILITY DER 


0. 900 


PROGRAM OUTPUT DATA FOR DOUGLAS.DAT 
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* EVD JET - WING COMPUTER PROGRAM » 


BMA RAK MR RMR MMR Ree Nene ρολο. و‎ 


ww ONR SAMPLE CASE »w» RECTANGULAR WING CMU = 1 WITH STABILITY DER 


USED INPUT 
AREA = 0.888889 6.500000 
SPAN = 2.000000 4.500000 
CREF = 0.444446 1.000009 
XMC = 02111111 0.250009 
СМАС = 0.446446 0.990909 
ARATIO = 6.500900 6.500200 
XCG а 0 111111 0.250000 
NROWS = 4 G 
NCASES = 3 5 
SYMM = 0 0 
)PRINT = 0 0 
JETFLG = 0 0 
IGTYPE = 2 2 
IHINGE = 0 1 
NUMEER OF WING ELEMENTS z 21 
NUMZER OF JET ELEMENTS = 16 
TOTAL NUMBER OF ELEMENTS = 37 


MON fe V Mom MH M M WW M y Ww te fm ee tg te м у м у á p W p y Wu y M G V ú ف‎ ú 6 W ú W h V ہو وو وو وو ہو ہو یو وو غر فو ہو ور وو ہر ہو ور‎ 


ELEMENT GEOMETRY DATA AND FUNDAMENTAL CASE DATA FOR FUNDAMENTAL CASE 1 »‏ ٭ 


Wow MOM Wow v v wow Wi)» « v V عو کو می وع وو عو‎ т мы Му =» Му = Му عو عو مد مو فو عو مو مو شی‎ ü W M M W ú به إو ك‎ 4 4 W W y وو‎ 4 V y y W M ہو مو مو ہو ہو ور‎ yy WÓ y 


www SECTION 1 """ Y s 0.975000 ЕЕ; = 0.025000 XLEAD = 0.090000 XTRAIL = 0.444444 CHORD = 0.444666 TANLE = 0.000000 
WING ELEMENTS NW = 5 TRYST = 000000 HL = 0.000000 THETA S z 0.000000 
ХЕ 0.000200 01100000. 0.200000 0.500000 0.900000 
XI 6.009900 0.044444 0.058889 аласын 0.400000 
DE 0.100000 0.120000 0.200000 0.400000 0.100000 
EPS 1.000000 1.002000 1.000002 1.090600 1.090000 
BETA 0.002000 0.000000 0.002009 0.000002 0.000000 
ШУРЕ 20 10 10 10 10 
ЧЕТ ELEMENTS NJ = 4 0 = 0.88888? DJ = 0.000000 ACTE = 0.000000 THETA = 1.000000 
x 1.000000 1.100000 1.500000 3.000000 
XI 0.446446 0.48838? 0.606607 1.233523 
DEL 0.100000 0.400200 1.500000 итии 
ВЕТА 0.000000 0.000000 6.000000 0.000000 
ТҮРЕ 10 10 10 
www SECTION 2 нин Y = 0.887500 DELTA = 0.062500 XLEAD = 0.000000 XTRAIL = 0.444444 CHORD = 0.444444 TANLE = 0.000000 
WING ELEMENTS NK = 5 ТЫ15Т = 0.000000 HL = 0.000000 THETA S = 0.000000 
XE 0.000060 0.190000 0.260000 0.500000 0.900000 
XI 0.020000 0.06664 0.088889? ο σας. 0.600000 
DEL 0.100020 0.100260 0.300002 0.600000 0.100000 
EPS 1.000000 1.000000 1.009009 1.000200 1.020200 
БЕТЕ 0.000000 0.000000 0.000000 0.000000 0.000000 
ТҮРЕ -0 10 10 1c 10 
JET ELEMENTS NJ = 4 D= 0.888889 DJ = 0.000000 ACTE = 0.000000 THETA = 1.000000 
XE 1.060000 1.100000 1.500002 $.000000 
ΧΙ 0.464446 0.488¢89 0.656957 prion 
DEL 0.100000 0.400990 1 5οουαο κ ον 
ΕΕΤΑ 6.900090 6.000000 0.000000 0.000000 
TYPE 10 10 10 20 
мин SECTION 5 ΑΝ» Y= 0.687500 DELTA = 0.127500 XLEAD s 0.000000 XTRAIL = 0.446664 CHORD = 0.444444 TANLE = 0.000000 
WING ELEMENTS NW = 6 TWIST = 0.000090 L = 0.000000 THETA S = 0.000000 
XB 0.000000 0.10¢000 0.290009 0.500900 0.800000 0.900000 
ΧΙ 0.09000 0.044444 0.088889 0۰2222 گاج‎ 0.25555е1 0.400000 
DEL 0.120000 0.160002 0.200000 0.200000 0.100000 0.100000 
ERS 1.000000 1.060000 1.000000 1.002000 1.000000 1.000000 
BETA 0.022000 0.000000 0.000000 0.000000 6.000500 0.000000 
TvPE 20 10 19 10 10 10 
SET ELEMENTS NJ = á D = 0.288889 DJ = 0.009000 ACTE = 0.000000 THETA = 1.000000 
ХЕ 1.090000 1.100000 1.500000 2.000020 
ΧΙ 0.446464 0.488539 0.666667 oe 
DEL 0.100000 0.400700 1.5090000*"us «usns 
PETA 0ئ0‎ 0.000000 0.000000 0.009090 
TYPE 10 10 10 29 
мен SECTION @ *** Y = 0.275000 DELTA = 0.275000 XLEAD = 0.000000 XTRAIL = 0.464664 CHORD = (0.444464 ТАМЕ = 0.000000 
WING ELEMENTS NW = 5 TWIST = 20.000000 HL = 0.000000 THETA S = 0.000000 
×8 0.000000 0.100000 0.200000 0.500000 0.900000 
XI 0.006000 0.044444 0.С088589 0.222224 0.600000 
DEL 0.102000 0.100200 0.300600 0.600000 0.100000 
EFS 1.000000 1.000002 1.029000 1.000000 1.000000 
BETA 0.000200 0.000000 0-000020 0.000000 0.000000 
TYPE 20 10 19 10 10 
ЧЕТ ELEMENTS NJ = 4 D = ٦+ DJ = 0.000000 ACTE = 0.000000 THETA = 1.000000 
XS 1.00C000 1.100000 1.500000 3.000900 
XI 6.564646 0.482889 0.606037 10225253 
DEL 0.100000 0.600000 1.500000»»».»»-»ν»ν 
ВЕТА 0.000000 0.000000 0.000000 0.000000 
TYPE 10 10 10 i0 
WANWA ورور‎ W h ور ہے‎ `. k N N W W W hk à N W N ہچ‎ M N W W P Mh RNM MN ضر ور ہو کر ور ور ور جج ور کر ۱ز ور ور 6 وج وج ور ور ۱ ور ض× یو وو و و کر و ضر یح کور و وو ور ور ور ور‎ 
» ELEMENT GEOMETRY DATA AND FUNDAMENTAL CASE DATA FOR FUNDAMENTAL CASE 2 » 
ور ہی و یج ہر ہر یرہ ور یر وھ )رو ہریوور‎ RRR RR eR RRR RRR RNR RR RRR RRR Ν Ν 
wee SECTION 1 “и” Ү = 0.975000 DELTA = 0.025200 XLEAD = 0.000000 XTRAIL = 0.446444 CHORD = 0.444444 ТАМЕ = 0.000000 
WING ELEMENTS NK = 5 TWIST = 0.000000 HL = 0.000000 THETA S = 0.000000 
x8 0.000000 0.100000 0.200000 0.500000 0.900000 
EPS 0.000000 0.000000 0.000000 0.000000 0.000000 
BETA 0.000000 0.000000 0.000000 0.000000 0.000000 
ТҮРЕ 20 10 10 10 10 
МЕТ ELEMENTS NJ = 6 D = 0.888889 DJ = 1.000000 ACTE = 0.000000 THETA = 1.000000 
XE 1.000000 1.106000 1.500000 3.000000 
BETA 1.000000 0.000000 0.000000 0.000000 
TYPE 43 10 10 i0 
wee SECTION 2 ww Y= 0.887500 DELTA = 0.062500 XLEAD s 0.000000 XTRAIL = 0.444444 CHORD с 0.444446 TANLE = 0.000000 
WING ELEMENTS NW = 5 TWIST 0.060000 HL = 0.000000 THETA S = 0.000000 
XB 0.000000 0.100000 0.200000 0.500000 0.900000 
EPS 0.000000 0.000000 0.002000 0.000000 0.000000 
ВЕТА 0.000000 0.200000 0.000000 0.000000 0.000000 
ТҮРЕ 20 10 10 10 10 
JET ELEMENTS NJ = 4 D = 0.888889 DJ = 1.000000 ACTE = 0.000000 THETA = 1.000000 
X8 1.000000 1.100000 1.500000 3.000000 
БЕТА 1.000000 0.000000 0.000020 0.000000 
TYPE GZ 10 10 39 
wee SECTION à "v" Ү = 0.687500 DELTA = 20.127500 XLEAD = „000000 XTRAIL = 0.444444 CHORD = 0.444464 ТАМЕ = 0.000000 
WING ELEMENTS NW = TWIST = 0.000000 HL = ο. 050006 THETA S = 0.000000 
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X8 0.000000 0.100000 0.200000 0.500000 0.800000 0.900000 
EPS 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 
БЕТА 0.000000 0.000000 0.090090 0.000000 0.000000 0.000000 
ТҮРЕ 20 10 10 10 10 10 
“ЕТ ELEMENTS NJ = 4 D= 0.888889 DJ = 1.000000 ACTE = 0.000000 THETA = 1.000000 
ХЕ 1.000000 1.100000 1.500000 2.000000 
ВЕТА 1.000000 0.000009 0.000000 0.000000 
ТҮРЕ 65 10 10 50 
www SECTION 4 "Мм Y = 0.275000 DELTA = 0.275000 XLEAD = 0.000000 XTRAIL = 0.444444 CHORD = 0.444444 
WING ELEMENTS NW = 5 TWIST = 0.000000 HL = 0.000000 THETA S = 0.000000 
×8 0.000000 0.100900 0.200000 0.500000 0.900000 
ЕР5 0.000000 0.090200 0.000000 0.000000 0.000000 
BETA 0.000000 0.0000CO0 0.000000 0.000000 0.000000 
ТҮРЕ 20 10 10 10 10 
JET ELEMENTS NJ = 4 D = 0.888989 DJ = 1. 20215 ACTE * 0.000000 THETA = 1.000000 
ХБ 1.000000 1.100006 1.500000 3.00000 
BETA 1.000000 0.000000 0.000000 0. 000000 
ТҮРЕ а2 10 10 30 


Wo NON M NX X 9€ OX MOM M OX 99098 90 MOM M m 0 Om 96 E OX UN وو ور ور‎ АА нк м DE E DE E Û OE DE JO jE DO کر ور ور جج وو ہر‎ 


w ELEMENT GEOMETRY DATA AND FUNDAMENTAL CASE DATA FOR FUNDAMENTAL CASE 2 + 


HUMOR RARER EER REP ERE MMR REMAN PRR RE RRM RHP PNR RRA RR RRR RMR MEK RES NNN ы» 


mye SECTION ] »"» Ys 0.975000 DELTA = 0.025000 XLEAD = 0.000000 XTRAIL = 0.444444 CHORD = 0.444444 


WING ELEMENTS NW = 5 TWIST = 0.000000 HL = 0.000000 THETA S = 0.000000 
ХБ 0.000000 0.100000 0.200000 0.500000 0.900000 
EPS 0.000000 0.009000 0.000000 C.000000 0.000000 
БЕТА 0.000000 0.000000 0.000000 0.000000 0.000000 
ТҮРЕ 20 10 10 10 10 
JET ELEMENTS NJ= 4 D = 0.888889 DJ = 0.000000 ACTE = 0.000000 THETA = 0.000000 
ХЕ 1.000000 1.100000 1.500000 3.000000 
БЕТА 0.000000 0.000000 6.000000 0.000000 
ШҮРЕ а2 10 10 2 
w** SECTION 2 www Y = 0.887500 DELTA = 0.052500 XL -EAD = 0.000000 XTRAIL = 0.444444 CHORD = 0.444444 
WING ELEMENTS NW = 5 TWIST = 0.000000 HL = 0.000000 THETA S = 0.000000 
х8 0.000000 0.100000 0.200900 0.500000 0.900000 
EPS 0.000000 0.000000 0.0000С0 0.000000 0.000000 
BETA 0.000000 0.000000 0.000000 0.000000 0.000000 
ШҮРЕ 20 10 10 10 10 
JET ELEMENTS NJ = 4 D = 0.888889 DJ = 0.090000 ACTE = 0.000000 THETA = 0.000000 
XE 1.006000 1.200000 1.500000 3.000000 
БЕТА 0.000000 0.000000 0.000000 0.000000 
ТҮРЕ 65 10 10 20 
“H SECTION 5 ##» у = 0.687500 DELTA = 0.137500 XLEAD = 0000090 ES IE = 0.444444 CHORD = 0.666666 
WING ELEMENTS NW = 6 TWIST = 0.000000 HL = 0.000000 THETA S = 0.000000 
ХЕ 0.000000 0.100000 0.200000 0.500000 0.800000 .900000 
Е>5 0.000000 0.000000 0.000000 0.000000 0.000000 020000 
БЕТА 0.000000 0.000000 0.000000 0.000000 0.000000 1 "900000 
ТҮРЕ 20 10 10 10 19 42 
JET ELEMENTS NJ = а D = 0.88888? DJ = 0.000000 ACTE = 0.000000 THETA = 1.000000 
х8 1.000000 1.100000 1.500000 5.000000 
РЕТА 0.000000 0.000000 0.090000 0.000000 
ТҮРЕ 43 10 10 50 
«»# SECTION а www У = 0.275000 DELTA = 0.275000 XLEAD = 0.000000 XTRAIL = 0.444444 CHORD = 0.644444 
WING ELEMENTS NW = 5 TWIST = 0.000090 HL = 0.000000 THETA S = 0.000000 
ХБ 0.000000 0.100000 0.200000 0.500000 0.900900 
EFS 0.000000 0.000000 0.090000 0.000000 0.000000 
EETA 0.000000 0.000000 0.000000 0.000000 0.000000 
ТҮРЕ 20 10 10 10 10 
JET ELEMENTS NJ = G D= 0.888889 DJ = 0.020000 ACTE = 0.000000 THETA = 0.000000 
x8 1.020000 1.100000 2.500005 3.000000 
LETA С.С00000 0.000000 0.090000 0.000000 
TYPE а2 10 10 20 
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ROW CMU 
1 1.000000 
= 1.000000 
5 1.000000 
4 1.090000 
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war SECTION |1 www ү = 0.975000 СЕТА = 0.025090 XLEAD = 0.000000 XTRAIL = 0.444444 CHORD = 0.444444 


WING ELEMENTS NW = 5 TWIST = 0.000009 HL = 0.000000 THETA S = 0.000000 
XB 0.000000 0.100000 0.200000 0.500000 0.900000 
EPS -0.400000 -0.200000 00 o "۹ 0 1.600000 
BETA 0.0000С0 0.000000 0.000000 0.020000 0.000000 
0۴ 20 10 10 10 10 
JET ELEMENTS NJ = 4 D = 0.888389 DJ = 0.000000 ACTE = 0.000000 THETA = 1.500000 
XE 1.000000 1.100000 1.500600 5.000000 
ВЕТА С. 000000 0.000000 0.000029 C.000200 
ТҮРЕ G3 10 10 50 
нчи SECTION о «ии Y = 0.887500 DELTA = 0.0e2500 X.E4D = 0.000000 XTRAIL = 0.444644 CHORD = 0.444444 
WING ELEMENTS NW = 5 TWIST = 0.000000 HL = 0.000000 THETA S = 0.000000 
XB 0.000000 0.100000 0.206000 0.500000 0.900000 
EPS -0.400000 -0.200000 0.199999 0.900000 1.600000 
BETA 0.006000 0.000000 0.0000C0 0.000020 0.000000 
TYPE 20 10 10 10 10 
JET ELEMENTS NJ = 4 D = 0.888289 DJ = 0.000000 ACTE = 0.000000 THETA = 1.500000 
XB 1.000000 1.100000 1.50C000 3.000000 
BETA 0.000000 0.000900 0.009000 0.000000 
ТУРЕ 43 10 10 20 
мин SECTION 5 кн ү = 0.687500 DELTA = 0.127500 XLEAD = 0.000000 XTRAIL = 0.444444 CHORD = 0,444444 
WING ELEMENTS NW = 6 TWIST = 0.0000С0 HL = 0.000000 THETA S = 0.000000 
х8 0.000000 0.100000 0.200000 0.500000 0.800000 0.900000 
EPS -0.400900 -0.200000 ο στρ” 0.800000 1.199999 1.400000 
BETA 0.000000 0.000900 0.000000 0.900000 0.000000 0.000000 
TYPE 20 10 10 10 10 42 
JET ELEMENTS NJ = 6 D= 0.88888? DJ = 0.000900 ACTE = 0.000000 THETA = 1.500000 
XB 1.000000 1.100000 1.560000 2.000000 
BETA 0.000000 0.000900 0.000000 0.000000 
ТҮРЕ 65 10 10 20 
нин SECTION á ww ү = 0.275000 DELTA = 0.275000 XLEAD = 0.000000 XTRAIL = 0.464444 CHORD = 0.444444 
WING ELEMENTS NW = 5 TWIST = 0.000000 HL = 0.090000 THETA Š = 0.000000 
XB 0.000000 0.100000 ‚200000 0.500000 0.900000 
EPS -0.400000 -0.200000 ۳3ء“‎ 9 0.990000 1.400000 
ВЕТА 0.000000 0.000000 0.000000 0.000000 0.000090 
TYPE 20 10 10 10 10 
JET ELEMENTS NJ = 4 D= 0.888889 DJ = 0.000000 ACTE = 0.000000 THETA = 1.500000 
X 1.000000 1.100000 1.500000 5.000000 
ВЕТА 0.000000 0.000000 0.000000 0.000000 
ТҮРЕ 63 10 10 50 
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ROLLING MOMENT COEFF DERIVATIVE DUE TO ROLLING, 
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YAWING MOMENT COEFFICIENT ABOUT XMC DUE TO YAWING ABOUT XCG. 
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ALPHA CNP CNP Επ СҮР2 CLLR CNR 

«10.060000 » 0.000247? 0.0000000 κ» 0.0000000 0.0000000 » -0.0003880 0.00012 
-9.000C00 =» 0.00019873 0.0СС0000 N 0.GG00000 0.0000000 » -0.0002712 00 8 
0000 » 0.0001277 0.0000000 + 0.0000200 0.0000000 ~ -0.000154z 0.00008- 
00000 и 0.0000076 0.0000000 + 0.0000000 0.0000000 = -0.0600575 ϱ. 0000655 
000000 ” 000 75 0.0000000 =» 0.0000000 0.00000060 » 0.0000794 0.0000460 
000000 > -0.0000526 6.0000000 » 0.00C0000 0.0000000 * 0.000162 0.0000509 
000000 м =0.0001127 0.2000000 ٣ 0.0000002 0.0000000 и 0.0003131 0.000017% 
020520» -0.0001728 0.0000500 » 000 0.0000000 = 0 ھ.‎ 5 0.0000070 
«000000 + -0.0002229 0.0009000 м ϱ.0000000 0.0002000 × 0009 -0.0002217 
«009000 » -0.0002920 0.0006000 x~ 0.0000000 0.6c00000 ^ 0.000666 0.0-۔‎ 6> 
‚055920 » -0.0005521 0.0000000 + 0.00C00000 0.0000000 κ 0.0007805 -۔‎ 0 
.00000 м -0.0006122 0.0000000 “ 0.0000000 0.0000000 » 0.0003 7 3 -0.0000155 
.0002000 + -0.0002725 0.0900000 ν 0.0000000 0.0000000 » 0.001012 -0.000015%9 
.000000 ~ -0.,0005236 0.0099000 > 0.0C00000 0.0009000 м 0.00112:10 -0.0000142 
«0002000 + =0.00С5925 0.0000000 » 0.00C0600 0.0900000 * 0.0012479 -0.000010« 
.000960 κ -0.0006520 0.0020000 * 0.0220000 0.0Сс00000 ~ с.0012667 ~0.00000¢5 
«050000 + -0:2007127 0.9000000 * 0.0000000 0.00000C0 » 0.0014815 0.0000025 
00000 ~ -0.0007728 0.0222000 ~ 0.0000000 0.0000000 » 0.0215984 0.00016 
290000 ~ -0.0008559 0.0000000 м 0.0200000 0.0000000 κ 0.0017152 0.0000258 
000000 >» -0.0008940 0.0200000 + 0.0000000 0.0000000 * 0.00181 0.000640 [ 
.000 000 + -0.000<5.1 0.00600000 » 0.0000000 0.0000000 ٣ 0.9019488 0.0000505 
.000000 м -0.0010142 0.0000000 » 0.0000000 0.0000000 * 0.0020658 0.0000750 
000000 ٣ -0.02107642 0.0000000 κ 0.0G00000 0.0000000 * 0.0021826 0.С000°5® 
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! SEQUÉNTIAL', 


P1.DAT' 


Z xt 
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VERSION 3 
D 
B 


AR THE SCREEN, THEN PRINT HEADER 
0 
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x l, 
PROGRAM JETFLAP 

E 
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Т 
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а 
κιτ σαιτ” σος 
-raaaaaaaoao 
=d 


«tr 
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OO 


EXIST ) 


FILE | 
input file 
pt 


| The 
| Prom . 
| Filename size 
( STATUS ) ) 
ING TO ACCESS IT 
SIZE); EXIST 


N INPUT DAT 
V 
T 


Ë 
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SI 
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EFO 
10 
LE 


а.ш2ш (оен 


NAME DOES HOT EXIST. 
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m 
ne 


myim;2Jy:0r»6G) од»-іл ом 0]0)00)G)00 000 UHOQO) OU) 
ЕН 
= 


» ' INVALID RESPONSE - REENTER.' 


о 
о 
70 

от 
ғ 

гп 
τι 
© 


OK ҥ+-СсСжЖжжж OX 


AM JETFLAP , 


m m 
Er 
ba MHHHH Tm 
AeA Aee 44 NHZ —+AZZZZZ md 
ολο» ~ 
2 


» ' INVALID RESPONSE - REENTER."' 


x OF On AAA o4 


' DO YOU WISH TO OVERWRITE THIS FILE? 1 = YES32 Ξ ΝΟ’) 


FOR THIS CASE 
» END=100 ) TITLE 


== 


+I) ro DO 


oom oomoul 


> 
сп” охтопгоололог- от 


от OQO?OZ 
p m y» tn 


» 


0 


om 


ETRY CONTROL DATA 
AREA,SPAN,CREF »XMC »XCG 


ROWS »NCASES , ISYMM,IPRINT ;JETFLG,IGTYPE,IHINGE,;IDERIV 


о 
22-х 


о 
τοπ. {гот ~ 


em _ ©‏ ٭ ے ہے 


г 
= 
= 


O 


Hon onm ong d Hog dg И 2552 


-CG)ymro00)200z2070:00 mom 
ттщ 
MING) — 


رد C— C‏ جج۸( پر ںرے ے بر ئبےہم ὋΣ‏ 
ог"‏ 


CH TYPE OF RUN IS REQUIRED 
.NE. 0) GO TO 60 


OO ОО 
т 
ч 
x 


ж 


В WILL BE EXECUTED 

0, 70 , 100 , 120 ), ІК 
0 

Y 


» 
> m 


RIVATIVE RUN HILL BE EXECUTED 

τ ΕΕ”. ο) 0 

C HEDE E JE JEJE JE IE IE E JE JE DE ME E E HE JE JE JE E E E E E E E E JE JE E JE JE JE JE PE DE PE HE JE JE JE JE E E E E JE JE JE E JE E E PE JE JÉ JE E EE E E E JE FÉ JE JE JE FE FE 
C THIS RUN HAS BEEN COMPLETED. THANK GOD FOR SMALL BLESSINGS 

С ж ж ж Ж Ж ЖЖ э ж HEIE E HE FE JE Je Эк © ж ЭЕ ЭС ЭЕ © © KE E E E E EE E EE E E E E E E EE KK KK KK E KE E E EE XK E E E E € 3% # 
С 


С РРІМТ TEE M MESSAGE FOR THIS RUN AND GO BACK TO BEGIN A NEW RUN 


ОО 
o» 
۸ 


о 
моч QOM HO ы-мннг>хХххХоОО тт ہن00‎ 


70 МВІТЕ(6, 80) 
80 FORMAT(1HO//// 22X,10( BHXXXXX), ZHXxx/ 3 
1 bzHx THE PROGRAM HAS' REACHED CHÓRMAL  TERMINATION x/ 
2 32x 10{5ΗΧΧΧΧΧΙ,2ΗΧΧΧ 
C READ TO SEE “If THE εκτ CAES IS A TITLE OR AN OLD END OF CMU CARD 
READILUN, 20, ENDZ100) TITLE 
90 IFCTITLE(1) .EG. CHECK) GO TO 10 
B GO TO 30 
C PRINT COMPLETION MESSAGE AND STOP EXECUTION 
100 WRITE(6, 80 
< 110 STOP 
Схх>«Ұх<ххххХ>>хХ>х<ХХХХУХХХХХХХХХХХХХ< ХХХ ХХ ХХХ ХХХ 
C A FATAL ERROR HAS OCCURED. PRINT FINAL MESSAGE AND STOP EXECUTION. 
ως ως ο ххх Акку хкин хк EAD RT 2 IO EO ο 
120 6 


0 FORMET( 1HO77/762X> eL GHx*x*x* )/21X, 116 bHxxx*xx ) 
1 51Х,55Нх Е RAM HAS REACHED ABNORMAL TERMINATION ж/ 
2 21Х,11( 5Бнхжххх)/62У,2(анхххж)) 
140 ENDE 
СЕ ж DE HK HHH HHH HH HH HH HHH IH HHH HHH IEE HIKE E JE E PE JE JE E JE HE JE JE JE JE JE JE PE JE JE JE JEJEJE JE JE ЭЄ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ 
SUSROUTINE CLRSCRN 


C 
С LIBRARY ROUTINE TO CLEAR THE SCREEN. 


ISTAT = LIBSERASE_“4GE (1,1) 
RETURN 


END 
E EEE EEE E E EEE EE E E E С ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ JE HE E E E E E JE JE JE JE JEJE JE PE JE E E FE E E JE E JE JE JE JEJE JE JE JEJEJE IEE JE JE JE HE JEE E € FE FE JE FE FE 
SUBROUTINE QUERY (NANS ) 


C 
C ROUTINE TO TRAP ERROR CAUSED BY IMPROPER RESPONSES TO QUESTIONS. 
C THE COMPUTER GENERATES AND ERROR WHEN A CHARACTER IS SUPPLIED TO 
E A QUESTION EXPECTING AN INTEGER OR REAL VALUE. 
NQTEST=0 
1 CONTINUE 
IF (NQTEST .GT. O) THEN 


PRINT ж, ' CHARACTER VALUES ARE NOT VALID. 
PRINT *, ' PLEASE ENTER AN INTEGER VALUE. 


END IF 
NQTEST = NQTEST + 1 


110 


“μμ... ہے‎ 


PEDEM (5,ж,ЕКК-1)МАМ5 
ИМИ --2222222....<.-................... 
E SUBROUTINE APPLY1 
C THIS SUBROUTINE CONTROLS ALL ASPECTS OF CALCULATION OF REGULAR CASES 


ΜΙ, τ, Νο ISYMM, a ο νο ος το ο » LHINGE 


COMMON/SPIRIT/ ! NEN AX NEHCMU NOAL ; 
CIDE RHETHER OR NOT THERE IS AN ALPHA - CASE 
NOALFA = 1 
IR = 1 
LOGIC = 1 

Е IF(ISYMM .LT. 0) NOALFA = 0 
C INITIALIZE AND INCREMENT THE CMU CASE CONTROL COUNTER 

10 МЕРСНО = 0 
с 20 NEHCHU - МЕМСМО + 1 
Č EXECUTE THE PROBLEM FORMATION STAGE 

30 CALL STAGE 
۹ FETO ( GO , 60 , 70 , 80 ), IR 
C EXECUTE THE PROBLEM SOLUTION STAGE 

GO CALL STAGE? 
! ÍF(IR .EQ. 2) GO TO 80 
С EXECUTE THE AERODYNAMIC PARAMETER STAGE 
„ 50 CALL STAGES 
€ THE PROGRAM HAS BEEN EXECUTED SUCESSFULLY 
€ GO BACK AND DO A NEW CMU CASE 

BEDSETEEG /МЕ. O) GO TO 60 

А GO TO 20 
)] эеэ 096965 365 Xx 1+ 5 3 5 1+ 14 4 1 5+ 14 1£ 5 1 3€ 9¢ د‎ 5 14 oc xxx xxx «xx xxx xx 
С 


οὔ Τα = HAS BEEN COMPLETED. RETURN TO START A NEH RUN. 
ETURN 
C THIS RUN HAS BEEN COMPLETED. NO FURTHER RUNS FOLLOM. 
RETURN 
С aan AL ERROR HAS OCCURED. RETURN AND QUIT. 


RETURN 
CK JE HE JE 2€ € 9€ EE € C € C CC 9C E E E € € 3€ 9€ € € 39€ € € 2€ 3€ 3€ € € € 3€ € X 9€ 3€ € € 3€ 9€ 3€ € 3€ 93€ 3€ € € 9€ 9€ 3€ 3€ 93€ 3€ 3€ 9€ € 2€ 3€ 9€ 3€ 3€ عو‎ 3€ 


E 
SUBROUTINE APPLY2 


С 
C THIS SUBROUTINE CONTROLS ALL ASPECTS OF CALCULATION OF 
С STABILITY DERIVATIVES 
COMMON/MATHEW/NCASES , ISYMM, IPRINT , JETFLG, IGTYPE » LHINGE 

Е COMMON/SPIRIT/ NENMAX;NEHCMU,NOALFA,LOGIC;IR 
C CHECK ON STATUS OF CONTROL FLAGS 

10 IHINGE 

NOALEE 210 
МЕБСНӘ 21 
is ute et. 0) GO TO 30 
WMRITE(6, 20 ) 

20 97م‎ ФІНТНЕ І5ҮММ FLAG INDICATED AN ANTI-SYMETRIC, 
Қ 1 48H CASE.  HONEVER, IT WILL BE TREATED AS SYMETRIC. ) 
С ЕХСЕСІЛЕ ТНЕ FIRST RUN 
C FORMULATE „IHE PROBLEM AS USUAL 

20 CALL STAGE1 
C GO To 1 50:, 110 , 100 , 110 J, IR 
C ADD THE EXTRA FUNDAMENTAL CASE FOR DERIVATIVES DUE TO PITCHING 
CALL STAGE“ 
C EXECUTE THE PROBLEM SOLUTION STAGE AS USUAL FOR THE FIRST RUN 

50 CALL STAGE2 
: IF(IR .EQ. 2) GO TO 110 
C EXECUTE THE AERODYNAMIC STAGE FOR THE FIRST RUN 
C FUNDAMENTAL CASES 

60 LOGI 
R CALL STAGES 
C THE FIRST RUN HAS BEEN COMPLETED 
С EXECUTE THE SECOND RU 

WRITE(6, 70 ) 
70 ҒОЕНАТС1ң17 222772277 27X,11(6H33XX ) , 2H XX 
1 7X,66H* SECOND RÜN FOR STABILITY DERIVATIVE CASE ж / 
2 375 11(GHxxxx ), 2H>x>% ) 

C IF THIS IS A SYHETRIC RING, SWITCH IT TO ANTI-SYMETRIC FOR RUN 2 
< 80 ыы, .EQ. 0) ISYM 
C STORE THE FIRST RUN SOLUTION ON UNIT 1, DEFINE THE FUNDAMENTAL CASES 
C FOR YAWING AND ROLLING RATES, AND PRINT THE NEW FUND CASE GEOMETRY. 


111 


CALL STAGES 


С 
С S DUE SOLVE THE MATRIX SYSTEM FOR THE SECOND RUN 
CALL STAÉE2 
С ІЕСІК .EQ. 2) GO TO 110 
C CALCULATE AND PRINT THE DERIVATIVES FOR ALL FUNDAMENTAL 
С AND COMPOSITE CASES 
LOGIC = 3 
IF(IPRINT .GE. 0) IPRINT = 2 


С 
CHF HH HHH HH HH HH HH HHH HHH HHH HHH HHH HEHEHE IEE E JE E E KE E E JE E E JE HEHEHE HE HEH HH HEHE HEHEHE HH HH HAHEI IEE 
С оаза IS THE END OF THE LINE 


RETURN 
С ΠΠ τ. ERROR HAS OCCURED. RETURN ABNORMALLY TO MAIN. 


CHE HEHEHE HHH HEH HEH IH HHH HEHE HIE IE E EE EK EE XE EE EEE E EE EE E E E EKE EKE EE E E EE E XE E EE EEE EE XE E E EKE X 
END 
SUBROUTINE 5ТАСЕ1 


S SUBROUTINE READS THE GE 


THI NERA 
CONTROLS THE CALLING OF THE SPEC 
TB 
"T, 


Оооо 


COMMON/MATHEH/NCASESAISYMM, 
COMMON/MARK/NROHS sNRONSJ yh 1M 
IRIT/ NEWMAX > NEFICMU NAT ών 
Т 


- 
HIS IS THE FIRST CMU CASE 
I. 13760 T0750 

IS .GT. 40) .OR. (NROHS .LT. 3)) GO TO 80 


COMMON/SP 


CHECK WHETHER 
IF(NEWCMU .G 
IF( 0 





ele) ON 
07 


Е L INPU 
0 جع‎ Тео, 1). ОК: (IGTYPE .EQ. 2))CALL SGMAIN(NOALFA,;IR) | 
(5205, 60 , 300 J; IR 


USER INPUT 
PRINT το ۶ ۳۲ 


G 
20 WRITE ( І 
$0 FORMAT(LHI7//44 

1 44% С 


Оооо 


AUSE IGTYPE HAS THE WRONG VALUE 


HE aes je HAS THE VALUE OF,I2/ 
E VALUES 1 OR 2 ARE ACCEPTABLE/Z 
SE HAS BEEN TERMINATED) 


ON 
> 


EQUIREMENTS 


ғ 
om 


ON 
un 
om 

2> 


о 
© 
ως HOODOO HOD 


1 


OO 
-:Ὦ 


„NORMALLY TO THE CONTROL PROGRAM 
TO 130 

PRINT ERROR MESSAGE BECAUSE THE NROWS VALUE IS UNACCEPTABLE 
90 FORMATCIHI SEX, HNROWS =,13 ) 


Q3 x x x x Xx € x x» xXx€*x**xxx«Xxx€x: xxx xx««xxxxxxxx xx o o o à p 9X oeeexxxxxxxx* 


om 
AH OWA NPOP 


ΩΩ 

79 

= 
Ἐπ 


O 


C A FATAL ERROR HAS OCCURED. “RETURN ABMORMALLY TO MAIN. 
GO TO 130 
С THIS RUN HAS BEEN COMPLETED. THANK GOD FOR SMALL BLESSINGS. 
C | RETURN TO MAIN AND BEGIN A COMPLETELY NEW RUN 
G0 TO 126 
€ _ RETURN _TQ MAIN AND STOP THE EXECUTION 
И Кы 


TURN 
CHIH K EK XE EEE E EE E EE E E E EE EE EE XE XE E E EE E E E E EKE E E E E E EE E E XECE E EEE E E E E EEE EK EEX EEK 
END 
SUBROUTINE SGMAIN(NOALFA,IR) 


THIS SUBROUTINE CONTROLS ALL GEOMETRY CALCULATIONS FOR THE 
SECTIONAL GEOMETRY METHOD 


COMMON/MATHEW/NCASES , ISYMM,IPRINT JETFLG;,IGTYPE ; IHINGE 
HE Cone PLANFORM GEOMETRY DATA 
INPT s TRI 
. 21 GO TO 10 
E CEQ. 1) U XLETR1(IR) 
Q. 2) GO TO 100 
E „ЕЧ. €) CALL ۶ 


МО HE WING PLANFORM GEOMETRY DATA 
20 CALL NORM1 


READ THE JET SHEET GEOMETRY DATA | 


ОО ОООО 


ос) ОО 


ООО Ооо 


ОО ОО 


ооо ON 


OOON 


ON 


ОО 


ОООО 


OO 


1 
но 
оо 


co TO 100 
D ELEMENTS 
GO TO 100 
CONSTRUCT THE SET OF FUNDAMENTAL GEOMETRIC CASES 


DO 90 N = 1,NCASES 
LCASE = N 


> 
‚гд гш 


STRUCTED CASE DATA IF REQUIRED 
6, 70 ) 


POL 


EX) 
Οκτ чес rr 


v 
ж 
(= 
DHOOTMHZ HOH oo 
πιοοροπ-] neH 


+ 


AN ERROR HAS OCCURED. RETURN ABNORMALLY TO STAGE1. 


100 ІЁ = 3 


SUBROUTINE INPTS(IR) 


S_ SUBROUTINE READS THE WING GEOMETRY DATA 
HE SECTIONAL GEOMETRY METHOD 


MMON/MARK/NROHUS ,NROHS J , NHT ,N 
MMON/GEOM1/Y 2323. 
L( 
rl 


: 
FOR T 

0 

Р J 
OMMON/GEOM2/ RÀ 
0 (2 
0 

I 


HI 
OR 


O PROM 


) ( 
0 
D T 
: J 
> 


moD roo 


CHORD 
Κκί 60 
Га0),х 
MMON/SGI/XB 10),Х8 
МИ NJTYPE 
MMON/INDAT/ 


14ء 
НЕ SECTIONAL PLANFORM DATA‏ 
N ) (YCK),K21,NROHS)‏ 


20 
E106) 
5,20 ) CICTYPE(K ) »K=1,NROWS ) 


(4 
D(4 
XLE 
Wt2 
TYP 
LUN 
10) 


جا 
Om‏ 


NROWS 
(K) .GT. NNTYPE) NWTYPE = ICTYPE(K) 


T. 10) GO TO 80 
ΝΙΙΝ)»ΝΞΙ»ΝΗΤΥΡΕ) 


VISION DATA FOR EACH ROW TYPE 


опто PZ 


Г--іл”-і -іг--іг-т 


ΖΕ 


жо н о = 
-< 


- Am ~ 


В. (NIN .GT. 20)) GO TO 100 
Wt L,N),L=z1 | NIN) 


CHORDWISE DIVISIONS FOR EACH ROW 


DI 
РЕ 
59 

B 


are 
Cum mCczzzo c-«C-«x-c 


X 
F 


oo جح‎ 


WS 


почне н Огт -—Z'-O0O21m2-—p»-—'Uu 
=. Д) 


2) 
ра um 


VPE PRINT A MESSAGE AND QUIT. 
HNUMBER OF WING ROW TYPES =,13) 


oD 
ooz 


6; 110 ) NINN 
(1H1/38xX ,13 ,38H WING ELEMENTS PRESCRIBED FOR КОМ ТҮРЕ,І2) 


сасасиш-О сах 


SUBROUTINE INPUTJ(IR) 


THIS SUBROUTINE READS THE JET GEOMETRY INPUT 
FOR THE SECTIONAL GEOMETRY METHOD 


COMMON/MATHEW/NCASES ,ISYMM ,IPRINT , JETFLG,IGTYPE 

COMMON/MARK/NROMS , NROHS.J > NWT NIT »>NMAX > NWO GO ) NJ 

COMMON/SG1/*BW(20 10) ,XBJ( 20; 10 ); ICTYPECG0 ), JT 
NATYPE ;NJTYPE 

COMMON/INDAT/LUN 

DIMENSION NI(10) 


READ THE TYPE OF DIVISION FOR EACH ROW 
10 NJTYPE = 0 


ING 
1ر(‎ 


ІН Е 
0 W(40),ITJ(40 ) 
ΡΕίά0) 


> 


› 
( 
Y 


113 


оо 


OOOOO 


ΩΩ 


о 


оо OO 


ТЕ(ІЈТҮРЕ(К) .СТ. NJTYPE) NJTYPE = IJTYPE(K) 
IF(IJTYPE(K) КЕ) 07 NROWSJ = NROMSJ + 1 
z0 CONTINUE 
IF(NJTYPE .GT. 10) GO To 110 
READ THE NUMBER OF CHORDWISE DIVISIONS IN EACH ROW TYPE 
READ(LUN, GO ) (NI(NJ,N=L,NUTYPE ) 
40 ЕОЕЛАТ( 1012) 
READ THE CHORDWISE DIVISION DATA FOR EACH ROW TYPE 
DO 60 N = 1,NJTYPE 
МІН = NI(N) 
IF((NIN .LT. 1) .0P. (NIN .GT. 20)) GO TO 120 
PEADCLUN, 50 ) (XB. (ul N),L=1,NIN) 
50 FORMAT(SF10.6) 
60 CONTINUE 
DEFINE THE NUMBER OF CHORDWISE DIVISIONS FOR EACH ROW 
DO 80 K š l,NROM 
NJ(K) = 0 
IF(IJTYPE(K) .Е0. 0) GO TO 80 
IJK = IJTYPE(K]) 
70 МУСК = NI( IJK) 
80 CONTINUE 
CHECK FOR ROW CONSISTENCY ON EITHER SIDE OF JET 
IF(NJI1) .EQ. Q ITEST = O 
IF(NJ(1) GT. OIITEST = 1 
DO 150 K = 2;NROWS 
IF(NJUK) .EG. OJICOMP - O 
IF(NJ(K) :GT. ODJICOMP = 1 
IF(ICOMP :EQ. ITEST)GO TO 160 
IF(ICOUNT .LT. 3)GO TO 170 
ICOUNT = 1 
TE(NJ(K) EQ. ӨЗТТЕЗІ = O 
ІР(МЖЕ) “67. 031ТЕ5Т = 1 
GO TO 150 
60 ICOUNT = ICOUNT + 1 
50 CONTINUE 
IP(ICDUNT .LT. 3) GO TO 170 
RETURN 
THERE IS NO JET FOR THIS RUN 
90 00 100 К = 1,NROWS 
IJTYPE(K) = 0 
МИК) =`0 
00 CONTINUE 
IR = 1 
RETURN 
AN ERROR HAS OCCURED. | PRINT A MESSAGE AND QUIT. 
10 HPITE(6, 120 ) NJTYPE 
20 FORMAT IHI/25HNUM ABER OF JET ROW TYPES =,13) 
RETURN 
30 VIRITE(6, 140.) N 
40 FOR! 1۸10111728 T ΝῊ JET ELEMENTS PRESCRIBED FOR ROW ТҮРЕ ЇЗ} 
ВЕТОВЧ 
70 WRITE(6,190) 
90 FORMAT 453 ROM CONTINUITY RULE FAILURE) 
RETURN 
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END 
SUBROUTINE STG2D 


> PROGRAM CONTROLS THE СА 


ІНІ LU DOWNWASH 
INFLUENCE COEFFICIENTS AND Е 
MATRICE ES. 


EV 
THE Ρ ΕΡΤ AND RIGHT SIDE 


CO!HMON/MATHERH/TICASES ,ISYMM ; IPRINT ; JETFLG ;IGTYPE ; IHINGE 
CONMNON/MARK/NRONS ,HROHS J NWT ;HJT ,NMAX NY C60) NJCS0) ,I 
COMMON/SPIRIT/ NERHAX ,HERCHU ;NOALFA ,LOGIC ; IR 
DIMENSION (610) 


IF THIS IS A NEW CMU CASE, AUGMENT THE EXISTING DOMWNHASH MATRIX ROWS 


W(40),1TJ(40) 


ON THE JE 
ISIZE = NEWMAX 
IF(NENCMU .EQ. 1) GO TO 10 
IF(NEWMAX .GT. NNT) CALL SHUFL2(W,ISIZE ,NEWMAX ) 
GO TO 30 
CALCULATE THE DOWNWASH INFLUENCE COEFFICIENTS AT ALL CONTROL POINTS 
DUE TO ALL TRIANGULAR, LEADING EDGE AND FAR-JET EVD ELEMENTS 
10 І5І2Е = ММАХ 
ІҒІ((ОСІС .EQ. 2) .AND. ( ISYMM .GT. 0)) GO TO 30 
CALL DNWNHSH(W,ISIZE ) 


NOTE THAT THIS MUST BE DONE EVEN THOUGH CMU MAY BE 0.0, 
CMU CASES. 


20 IF(NMAX .GT. NAT) CALL SHUFLI(WN,ISIZE) 
DEVELOP THE RIGHT SIDE COLUMN MATRIX 
30 ISIZE = NEWMAX 
00 80 М г 1,МСА5Е5 
LCASE = М 
DEFINE THE LCASE SOEUR E NOT INCLUDING THE INFLUENCE OF ANY HINGES 
GO CALL COLUMI1(LCASE ) 
COMPUTE THE HINGE ΗΕ INFLUENCE FACTORS 
IF((LCASE .EQ. .OR. (IHINGE .EQ. 0)) GO TO 80 
DO 50 I < 1,МЕММ 
μίτ) Ξ 0.00 
50 CONTINUE 
60 CALL HINGE(W,ISIZE ,NEWMAX ۲۷۸۹ء‎ ( 
MODIFY THE LCASE COLUMN TO INCLUDE ΤΗΕ INFLUENCE OF ALL HINGES 
70 CALL COLUH?2(H;ISIZE;NEHMAX;,LCASE 


Е 
E 


0101۵ . 
X SYSTEM Il! THE PROPER FORM FOR SOLUTION. 


VELOPMENT IS NOW COMPLET 
PER F 


ROUTINE DWNWSH(W,ISIZE } 
S SUBROUTINE _CALCULATES THE DOWNWASH INFLU ΠΕ ce νυ MATRIX. 


HI ENCE 
HE MATRIX IS STORED ON THE DIRECT ACCESS SCRATCH 
DIMENSION WII 
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IANGULAR EVD ELEMENT HITH UNIT PEAK VORTICITY 
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-PARTI / 12.56673 


SE С) αμα μα. 
r4 

<O ο ο O Q OO 

оғ mor о “о 


Әс 


ENT KITH UNIT AVERAGE VORTICITY, 


OWNHASH AT ANY POINT X,Y 


THE 
О ЕСЕЙ 
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DIMENSION SI(9),FACTOR( 9) 


0.3302394, 


DATA SI/- 


1 
1 


ос 


CALCULATE РО. 


.00)) GO TO 150 
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1 
«X DIMENSIONS OF THE ELEMENT. 


SETS 


.00 
(XB 
PARTS 7 XMS 


1 


.0Е-06) GO TO 80 
) GO TO 70 


( XMl/XB1] 
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. AND. 
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1 
x % ATAN(1.00ZSQX) + PART1 


1.0E-0%) GO TO 100 


.0) GO TO 280 


dde man INTEGRATION. 
THE 


MD - ROPP/YPD 
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ASIC GEOMETRICAL PARAMETERS 

BESCC1.00-SQX) ⁄/(1.00+SQX))) Z SQX + PART1 
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1:00) / 2.00 


xB - SB 
G( SB) 
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F 
140 CTE 
GO TO 270 
XB IS WITHIN THE X DIMENSIONS OF THE ELEMENT. 
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FR = FR + FACTORIN) ж РАВТІ / ХМ5 
270 CONTINUE 
FR = 0.50 x (BL-AL) * FR 
280 E = EL + FR 
GO ТО 460 
X IS MITHIN THE DIMENSIONS OF THE ELEMENT 
CALCULATE FO 
260 FO = 0.00 
GPX - 0.00 
GPPX = 0.00 
IF(AXB .LT. 1.0E-04) GO TO 510 
SOX - SO(CX) - 1.00/X 
СХ = С(Х) 
GPX = GX x (ABSCYMD )-ROP ) 
GPPX = GX * (ABS(YPD)-ROPP) 
(ІЕ((11.00-Хр2) LT. 1.ОЕ-06) ОБ ((сг1:1.00) Тт. 1.0Е-06)) 
300 FO = -(GPX/YMD - GPPX/YPD) * ALOG(ABS(XMD/XPD) ) 
CALCULATE Fl 
LEFT SIDE INTEGRAL 
310 FL = 0.00 
AL = -Dl 
BL = 0.00 
DO 370 N = 1,9 
220 SY = CHANGE(AL,BL,SI(N)) 
XMS = X - SY 
TET ABS(XMS7DB ) .LT. 1.0E-04q) GO TO 350 
220 PART2 = (GS wx (R(XMS,YMD)-ROP) - GPX) / XMS 
220 PARTS = (GS * (ROXMS;YPD}-ROPP) - GPPX) 7 XMS 
PARTG = PART2/YMD - PART3/YPD 
GO TO 360 
250 PART2 = ROP/YMD - ROPP/YPD 
PARTG = (S(YMD) - S(YPD) - PART2) * SOX 
360 FL = FL + FACTORIN) * PARTG 
370 CONTINUE 
ЕШ - 0.50 x (BL-AL) * FL 
RIGHT SIDE INTEGRAL 
280 FR = 0.00 
AL = 0.00 
BL = D2 
DO 440 N = 1,9 
390 SY = CHANGE(AL,BL,SIEN)) 
XMS - X - SY 
TR(ABS(XMS/DB) «LT. 1.0Е-04) СО TO 420 
400 PART2 = (GS x (R(XMS,YMD)-ROP} - GPX / XMS 
410 PARIS = (GS_* (ROXMS,YPDJ-ROPP) - GPPX) / XMS 
PARTG = PART2/YMD - PART3/YPD 
GO TO 430 
420 PART2 = ROP/YMD - ROPP/YPD 
PARTG = (S(YMD) - S(YPD) - PART2) * SOX 
430 FR = FR + FACTOR(N) * PARTG 
440 CONTINUE 
FR = 0.50 * (BL-AL) * FR 
G50 F = FL + FR + FO 
CALCULATE THE DOWNWASH INFLUENCE COEFFICIENT 
5 x PARTo * P * F) / 19.739202 


G60 EVDG = (PART 
RETURN 


TH | 
CONTAINS THE QDOMNAASH DUE TO THE JET, AUGHENTS IT ACCORDING TO 
THE CURRENT CMU VALUES, AND WRITES IT BACK ON UNIT 1 

BEHIND THE DONNMASH MATRIX 


RED ТЕЛЕДІ IPRINT ,JETFLG,IGTYPE ,IHINGE‏ ا ات 
(0+)ل1],( 0 )188 . ( 0ہ )۱ء ) ,NAJT NMAX ,NHEGO0‏ 1 و COMMON/ MARK /NROKS ,NRONSJ‏ 
СОММОН/бЕОН1/Ү (д0), 00 ) ,DELTA(40},XB( 600 )yXI(600),DEL( 600);‏ 
D(4 КК(600),ІТҮРЕ(600)‏ 
COMMON/ JCASE/CMU( 40 } CMUP(G0O },CMNUPP(40 }‏ 
DIMENSION A(600), АІМі(600), NUISTZE)‏ 
NWT1 = NWT |‏ 
۲٢۲) ۱1‏ 
1+٢۲٢] ۱ 0) HRITE(6, 10 )‏ 
FORMATUIBl,52X, 36HAUGMENTED PORTION OF SOLUTION MATRIX/ )‏ 10 
PREPARE THE SOLUTION MATRIX FOR ROWS ON THE JET‏ 
I IS THE COUNTER FOR IDENTIFYING ELEMENTS ON_THE JET‏ 
IREAD IS THE COUNTER FOR DOFNHASH ROWS ON THE JET STORED ON UNIT 1‏ 
IWRITE IS THE COUNTER FOR AUGMENTED ROWS TO BE WRITTEN ON UNIT 1‏ 
IREAD = NWT‏ 20 
IWRITE = NMAX‏ 
CI - 0.125000‏ 
C3 = 0.375000‏ 
DO 150 І = МИТІ,ММАХ‏ 
ӘССІМІ - І-1‏ 
τει S= I + 1‏ 
IREAD = IREAD + 1‏ 
IWRITE = IWRITE + 1‏ 
Қ = KK(I)‏ 


READ THE ITH ROW OF THE DOWNKASH MATRIX  (IREADTH RECORD) 
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WRITE THE ITH AUGMENTED ROW (IWR RERE ETH_RECORD ) 
XX RCOHMENTED OUT BY JAC xxx 
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M THE PRESENT ROW IF THE DOHNHASH POINT 


ORD(K) 
CHORD(K ) 
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ШЕШЕ! ROM ON UNIT 1 (CIWRITETH RECORD ) 

READ THE NEXT DOHNHASH ROW (IREAD*1ST RECORD) 
ORTICN OF THE MATRIX 

WRITE(6, 120 І,М 

НМАТКТХ ВОЙ›1%,60{ /1Х,10Е15.5)) 


) 
0 
8 USE AS THE I-1 ROW ON THE NEXT PASS 
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140 CONT 
150 CONT 
RETU 
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DIRECT ACCESS UNIT 1 NOW CONTAINS THE FOLLOWING - 
WING-DUE-TO-WING-AND-JET DOWNANASH COEFFICIENTS (NWT RECORDET 
JET-DUE-TO-WING-AND-JET DONMNAASH COEFFICIENTS (NJT RECORD 
ہک‎ -DUE-TO-NING-AND-JET AUGHENTED DOHNWASH COEFFICIENTS (NJT RECS) 


SUBROUTINE SHUFL2(W,ISIZE »,NEWMAX ) 


THIS SUBROUTINE Dr EACH MATRIX ROW CORRESPONDING TO A DOWNWASH 
CONTROL POINT ON THE JET, MODIFIES IT ACCORDING TO THE NEW VALUES 


OF CMU, AND RESTORES IT IN ITS ORIGINAL PLACE 
COMMON/MATHEN/NCASES » ISYMM,IPRINT ,JETFLG,IGTYPE ,IHINGE 
COM AON/MARK/NROUIS » NROWSJ МАТ, NJT ;NMAX ,NNÉGO ) NJCG0 ) 4IACGO D ,IJÉ60) 
›»ХВ(600 ),Х1(600 ),0Е1 (600), 


СОММОМИСЕОМ1/у(40), CHORD( 40), DELTA А(40) 
1 Di 40 );KK( 600}, I TYPE 600} 
COMMNON/ZICASE/CHUL GO },CMUP( 40 ),CMUPP( 40 ) 
DIMENSION WCISIZE ) 


ТЕСІРКІМТ 1. 5 МЕТТЕРДІ 
10 ҒОКМАТ(1Н1,42Х, %6НАЦОМЕМТЕО PORTION OF SOLUTION MATRIX) 


CYCLE THE As DUEB MATRIX ROWS 


IREAD = ММ 
NTI = NWT + 1 
DO 100 I = NWT1,NEWMAX 
IREAD = IREAD +1 
FINDt 1'IREAD) 
20 IH1 = I - 1 
IP1 z I + 1 
K = KK(I) 
30 CMUDIF = (CMUP(K) - CMUPP(K)) x CHORD(K) 
READ THE ITH AUGMENTED MATRIX ROW 
GO READ(1'IREAD) 
FIND(1'IREAD) 
MODIFY THE TWO OR THREE SPECIAL ELEMENTS ACCORDING TO THE NEW CMU 
IF(I .E@. IJ(K)) GO TO 60 
IF(I .EQ. ( IJ(K)*NJ(K)-1)) GO TO 70 
DOWNWASH CONTROL POINT IS ON A REGULAR JET ELEMENT 
50 WCIM1) - H(IM1) * 0.1250 * DEL(IM1) * CMUDIF 
WII) = WII) + 0.3750 ж (DEL(IM1)+DEL(I)) δν CMUDIF 
τος И(ІРІ) + 0.1250 * DEL(I) * CMUDIF 
DOWNWASH CONTROL POINT IS ON A LEADING JET ELEMENT 
60 WII) = WII) + 0.3750 * DEL(I) * CMUDIF 
гес М(ІР1) + 0.1250 * DEL(I) «κ CMUDIF 
00+۲144. 1 CONTROL POINT IS ON A TRAILING JET ELEMENT 
70 М(ІМ1) = М(ІМ1) + 0.1250 * DEL(IM1) x Ct F 





ОО 


ОООО 


ΩΩ 


ОО 


ОООО 


ΩΩ 


ОО 


ООООООО 


.5750xDEL( IM1) * D(K)/CHORD(K)) * CMUDIF 
TH ROW ON UNIT 1 


) WRITE(6 ) 
OHMATRIX Bone 14, Lot/ix, 10E13.5)) 
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UBRCUTINE SETS UP THE RIGHT SIDE COLUMN MATRIX WITHOUT 
ERATION OF ANY HINGE DOWNWASH INFLUENCE 


ONMON/ MARK /NROWS ,NROWS.J HT »NLJT s HMAX ,NHEGO J4NJCA0 ) TR CGO ) TJ 
OMMON/GEOM1/Y ( 40 j » CHORD | 40 ELTACGO) ,XBC 600), X1( 600) ,DELU 600), 
٣۵ it PE( 600) 

OMMON/FCASE Z/EPS( 600,10), 0 ;10),THETA(40,10),THS( 40,10) 
OMMON/SOLV1/B(600;103 
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DEFINE THE ELEMENTS ON THE WING 
CASE) = EPS(I,LCASE) / 57.295779 


NUE 


ШЕ ELEMENTS ON THE JET 
K = 1,NROWS 
NJCK ) 
“ΠΕ 0) 60 ТО 40 
МЕМТ 
І 
) 
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مم = 


10 
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KKI,LCASE) / 57.295779 
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ROUTINE COLUM2(H,ISIZE ,NEWMAX,LCASE ) 


UBROUTINE ADDS THE APPROPRIATE HINGE DOWNWASH INFLUENCE 
RIGHT SIDE COLUMN MATRIX 


ММОН/МАВҚ/ 
MMON/GEOM1 


ΕΠΕ 


I 


بب 
OC‏ 
mu‏ 
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OO 


NH( 4O ) ,NJ( 40 J, IH( 4O0 I IJI ο) 
MBC GOO) XTLCOD) 6 600 
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M L 
MENSION H 
E ПЕ ELEM N THE WING 


CASE) - H(I) 
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E JET 
TURN 
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0) GO TO 90 
MU INFLUENCE FACTORS H1 AND H2 
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FOR EACH CONTROL POINT THE INFLUENCE COEFF 
THEIR RESPECTIVE DEFLECTION ANGLE AND SUMM 
COMPLETE HINGE-INDUCED DOWNWASH. 


COMMON/MATHEW/NCASES , ISYMM ; IPRINT ;JETFLG,IGTYPE,IHINGE 


F 
AT EACH DOWNWASH CONTROL POINT DUE TO ALL 
E 


ON 
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ON 


ΩΩ 


ООО 





COMMON/MARK /NROHS ,NROMS J ,NHT ,NJT ,NMAX,NW(60),NJ(LG60)  IM(CG0) , IJ(6 0) 
COHMON/GEOHTAYCaO )CHORDU GO ВЕ ТАО з Ув (208) T0000 BELED 00) 
1 0(40):КК(600).11ҮРЕ(600) 
COMMON/FCA АЕО 0} KKT GOO I TIYBEL GODO ao). 
DIMENSION H(ISIZE ) 
IF(LCASE .GT. 2) GO TO 20 
IFIIPRIHI .LT TO) ШЕТТЕ) 10) 
10 FORMAT(1H1) 
ILINES = 1 
CYCLE THE DOWNWASH CONTROL POINTS ON THE WING AND JET 
20 DO 110 I = 1,МЕМ 
KI = KK(I) 
CYCLE THE VORTEX POINTS ON THE WING AND JET 
DO 100 J = 1,NEWMAX 
CHECK WHETHER THERE IS A DEFLECTED HINGE AT ELEMENT J 
το B = BETAtJ;LCASE ) 
IF(ABS(B) .LT. 0.0001) GO TO 100 
B = B / 57.295779 
COMPUTE THE GEOMETRIC PARAMETERS 
40 X = ХІ(І) + DELLIOX*CHORD(KI)/2.00 - XI(J) 
ҮҮ z Y(KI) - YCKJ) 
50 D2 = DEL(J) * CHORD(KJ) 
DI = DEL(J-1) X CHORD(KJ) 
ΙΝΙ » IM(KJ) + NAKI; =~ 1 
60 IFCITYPE(J) .EQ. 43) D1 5 DEL(IN1) * CHORD(KJ) 
COMPUTE AND SUM UP THE INFLUENCE OF ELEMENT J 
70 НІ) = НІ) + EVDG(X,YY,DI,D2,;DELTA(KJ)) X B 
SUPERIMPOSE DOWNWASH FOR SYMETRIC OR ANTI-SYMETRIC GEOMETRY 
IF(ISYMM .GT. 0) GO TO 100 
ҮҮ 2 Ү(КІ) ж Y(KJ) 
80 HDUMMY = EVDG(X;YY,D1,D2,DELTACKJ)) 
IF(ISYMM .LT. O) HOUMMY 2 - HDUMMY 
90 ШТ 2 H(I) * HDUMMY * B 
100 CONTINUE 
110 CONTINUE 
PRINT OUT THE DOWNWASH IF REQUIRED 
ТЕСТРЕТЫГ CE. OI RET 
NEXT = NEWMAX/10 + 3 
IF(CCILINES*NEXT) .LT. 56) .OR. (ILINES .EQ. 1)) GO TO 120 
WRITET6; IQ ) | 
ILINES = 1 
120 IF(IPRINT .LT. 0) HRITE(6, 120 ) LCASE,H 
130 FORMAT( 1HO>35X,4GHHINGE INFLUENCE COEFFICIENTS FOR FUNDAMENTAL > 
1 ΕΗ CASÉ, I£Z2600/ EXP NOE TZ ES 
ILINES = ILINES + NEXT 
RETURN 


SUBROUTINE STG2S 
THIS PROGRAM CONTROLS SOLUTION OF THE MATRIX SYSTEM 
COMMON/MATHEW/NCASES » Seer КОА АРЛЕТ IP ο E 
> 


COMNON/SPIRIT/ NEMMAX Br "dos NOALFA,LOGI 
0۲410۶۷۷50۷1 ۸) )۵ 


Ex 


% 


COMO ZSOLV2 ZHRAREAC 10000 1 

BIHMERSTON C606), SUMBER(OOO ) 

IF(IPRINT .LT. 0) WRITE(6, 10 
10 FORMAT(1H1,52X, l4HGAMMA SOLUTION) 
SOLVE THE MATRIX FOR GAMMA USING MATRIX 

NIN = 2 

NSCRI1 = 3 

NSCR2 = 4 
20 CALL MATRIX(NEWMAX » NCASES »NSIZE ,NIN,NSCR1 ,NSCR2 ,IR) 
MATRIX HAS STORED THE SOLUTION IN THE FIRST STORAGE LOCATIONS OF THE 
WKAREA ARRAY. TRANSFER THIS DATA INTO THE GAMMA ARRAY. 
zo DO 70 N = 1,NCASES 

DO 40 J = l,NEMMAX 

GAMMA(J,N) = WKAREA( ISUM+J ) 
40 CONTINUE 

ІРСІРРІНТ .LT. 0) WRITE(6, 50 ) N,(GAMMALJ,N 1 ,NEWMAX ) 
50 FORMAT( 1HO,50%, 1GHFUNDAMENTAL Case 14 5 60( LX ADE} E 
60 ISUM = ISUM + NEWMAX 
70 CONTINUE 
IF REQUIRED, CHECK THE SOLUTION BY BACK SUBSTITUTION 
80 IF(IPRINT .LT. 0) CALL BAKSUB(H, SUMMER ,NEWMAX ) 


IR = 1 
GO TO 110 

PRINT THE MATRIX I AROR MESSAGE 

90 МКІТЕ(6, 

100 FORMAT(1H1, 40% GO0HMATRIX DOES NOT HAVE ENOUGH CORE TO HORK/ 
E € 45X, ,29HTHIS CASE HAS BEEN TERMINATED) | 

110 BETERI 
SUBROUTINE PREP(TRANS ; ISIZE ;NEHMAX ) 


THIS SUBROUTINE PREPARES THE FINAL MATRIX FOR SOLUTION BY 
CONCATINATING IT WITH THE RIGHT SIDE MATRIX AND STORING IT 
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nan 


ON SCRATCH UNIT 2 FOR INPUT TO MATRIX. 


CONMON/ MATHEH/NCASES ISYMM,IPRINT,JETFLG,IGTYPE ,IHINGE 
OH ONZMARK /NROHS y NRONSJ NNT NJTSNHAX NN 4O J >J (48 ‚14090 ),1)(9%0) 
ر5‎ 1 8 VBC! 


IRE AD = 0 
FIND(1'IREAD+1) 
REWIND 2 
READ THE MATRIX COEFFICIENTS 
ро 40 T = 1,NENMAX 
IF(I .EQ. NWT+1) IREAD = NEWMAX 
IREAD = IREAD + 1 
MEGTSEZE .СТ. 600) GO TO 5 
READII'IREAD) TRANS 
GO TO 10 
5 READ 1'IREAD) (TRANS( J), J2 1,NEWMAX ) 
PULL OUT THE RIGHT SIDE MATRIX COEFFICIENTS AND CONCATINATE THEM 
10 DO 20 N = 1,NCASES 
TRANS( NEWMAX4N) = BCI,N) 
20 CONTINUE 
THE MATRIX ROW HAS NOW BEEN ASSEMBLED AND FILLS THE TRANS ARRAY. 
WRITE THE CONCATINATED ROW ON ON UNIT 2 FOR INPUT TO MATRIX. 
Z0 WRITE(2) TRANS 
40 CONTINUE 
THE SYSTEM OF LINEAR EQUATIONS IS NOW READY FOR SOLUTION 
RETURN 
SUBROUTINE MATRIX(ND, MD, KD, NI, MM, NO, IR) 
ПОО ОРЕСТ MATRIX SOLUTION 
COMMON/SOLV2/A( 10000) 
LOGICAL LAST 
N = ND 
M = MD 
KORE = K 
NPM = N 
IF (MAXO(3 * NPM, М ж М) .LT. KORE) GO TO 20 
= G 
RETURN 
20 MT = MM 
REWIND NT 
NIN = NI 
REWIND NIN 
NOUT = NO 
REWIND NOUT 
МР1 = H + 1 
NN = N 
NEL = NPM 


~ CALCULATE THE MAXIMUM NO. OF ROWS, 'K' 
30 K = (KORE - NEL) / NEL 
“ ТЕЗІ TO SEE IF THE REST OF THE MATRIX WILL FIT IN CORE 


LAST = K .GE. NN 
IF (LAST) K = NN 


- READ 'K' ROWS OF THE AUGMENTED 'A' MATRIX 
NT = 0 
DO 50 IB = 1, K 
NS = NT + 1 
NT = NT + NEL 
50 CALL СЕТТІМІМ, 1, МЕ(, А(М5), 1, АА2) 
- CHECK TO SEE IF WE WERE UNLUCKY ENOUGH TO END UP WITH ONLY ONE ROW 
IF {К .EQ. 1) GO TO 110 
- 'K' IS GREATER THAN '1' SO HE CAN START THE TRIANGULARIZATION 
ы = "NEL * 1 
NELP2 = NELP1 + 1 
- FORM THE 'TRAPEZOIDAL' ARRAY (8) 
DO 60 IB ο» Κ 
МР = NELP2 - IB 
NS = NS + NELP1 
DO 60 IO = ІВ, К 
NT + NEL 
NT 


NB = NS 
AUNT) = (-A(NT)) / А(М$) 
00 60 NF - 2, NP 


+ 1 
А(МЫ) + А(МТ ) ж А(МВ) 


Nas 
60 A(MN) 
IF (LAST) GO TO 110 


С 
C - - HRITE THE 'TRAPEZOIDAL' MATRIX ON TAPE 
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70 
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ЖІ 
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140 


NT = 0 

NP = NEL 

NS = - NEL 

OO 70 IO š 1, K 

NS 5 NS « NELPI 

NT = NT + NEL 

CALL SAVE(HT, 2, NP, NP, ACNS), 1, AA2) 
NP = NP - 2 

NP = NP - M 

NS = KORE - NEL + 1 


READ ANOTHER ROW 


DO 100 IO = 1, NP 
CALL GETTC(NIN, 1, NEL, AC NS), 1, AAZ) 


MODIFY THIS ROW BY THE 'TRAPEZOIDAL' ARRAY 


NT = 1. 

MN = 

DO 90. TB = 1, K 
NB = NT 

NF = 


MN + 1 
A(MN) = (-ACMN)) 7 A€NT) 
DO 80 NN = NF,» KORE 


NB = NB + 

Е A(NN) + A€MN) × ACNB) 

МТ = МТ + МЕРІ 

WRITE THE MODIFIED ROW ON TAPE 

NN] = KORE - MN + 1 

CC SAVE(NOUT, 1, NN1, ММ1, А(ММ), 1, АА2) 
REHIND NOUT 

REHIND NIN 


SHITCH THE TAPES 
NT = NIN 

NIN = NOUT 

NOUT = NT 
RE-CALCULATE ROW LENGTH AND LOOP BACK 
NEL = NEL - K 

NN = NEL - M 

GO TO 20 

REHIND ALL TAPES 
REWIND MT 

REWIND NIN 
REWIND NOUT 


CONDENSE THE MATRIX 


NN = NEL 

NL = NEL + 1 

IF tK .Е0. 1) GO TO 130 

NS = 1 

NT = NEL 

DO 120 IB = 2, K 

NS = NS * NELP1 

NT = NT + NEL 

DO 120 IO = NS, NT 

AUNL) - А(ТО) 

HL = NL + 1 

М1 = KORE KX* M* 1 

με η; NOM WE CAN START THE BACK-SOLUTION 
NOTE..THE FIRST AVAILABLE LOCATION FOR THE SOLUTIONS IS A(N1) 
NREM - 

NEL = NPM 

LAST = K .EQ. N 

NPASS = 0 


SOLVE FOR THE ANSWERS CORRESPONDING TO 'К' ROWS 
KM1 = K - 1 
1=K +121 
S = NL - МР1 
NPASS = NPASS + 1 
DO 170 MN = 1, M 
NF NS + MN 
ACNF) = ACNF) / А(М5) 


NT = NS 

IF (KM1 .EQ. 0) GO TO 170 
DO 160 IB = 1, KH1 

NF = NF IB - 


NT = МТ б МР1 - 1В 


SUM = 0 

NP = NF 

М2 = МР1 + 

DO 150 IO - 1, IB 

NN = NT + 

NP = NP + = IO 

SUM_= SUM * A(NN) * A(NP) 
ACNF) 7 (ACNF) - SUM) 7 ACNT) 
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170 


bor 
«005 
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CONTINUE 
MOVE THE SOLUTIONS TO CONTIGUOUS LOCATIONS STARTING AT A(N1) 
KORE 1 


NN 1, K 
M 1, М 


02.0 
= доо 
r^ Wr 


-— 


ZH Il I + 


(NL ) 


I m 9mm 
ІРІ ІС 

= 
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WRITE THE SOLUTIONS ОМ ТАРЕ 

WRITE, (NIN) K 

DO 200 MN = 1, M 

NT = NS + MN 

WRITE ( NIN ) (ACIO), IO = NT, KORE, M) 
MEST IF THIS IS THE LAST PASS 

IF (LAST) GO TO 280 


WE MUST NOW MODIFY THE TRIANGULAR MATRIX TO REFLECT THE EFFECT OF 
THE SOLUTICNS OBTAINED SO FAR, (EQ 21) 


ж ж NOTE..LOCATIONS A(1) TO A(N1-1) ARE NOH FREE TO USE 


210 


CALCULATE THE NEXT VALUES OF 'NEL' AND 'NREM' 
NELOLD - NEL 
D K 


KOLD - 

NEL = NEL - K 

NREM = NREM - K 

CALCULATE NEW K. В АМО С (REAL) HILL ALHAYS BE INTEGERS. 
K HILL BE CALCULATED REAL AND TRUNCATED - - GOOD. 
B = 1 + 2%H 

C = 2*(KOLD%(M+1) - KORE ) 

K = (-В ғ 5ОВТ(Вхж2 - 46%С))/2.0 

NROW = NREM - K * 1 

TT IK LT NREM) GO TO 210 

LAST = .TRUE. 

NROW = 1 

K - NREM 

NS = 1 

NT = NELOLD + 1 


READ IN THE ROWS TO BE MODIFIED 
DO 270_IB = 1, NREM 

NT = > Jt 

(IB .LE O) GO TO 220 


NS = NS + N 
NT = NT + NN 


ہم 
- 


С 
CxxxxxxADDED NEXT LINE AND MODIFIED CALL; A.P. SODERMAN, 8/10/76**»*x*x**x 
220 NNsNT-NS-«1 


ООО 
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00 ۲ 


250 
240 


ЕЕЕ ΙΙ 2 ММ, А(М5), 1, АА2) 
МЕ MU 7 ир 

N: NN - KOLD 

DO ELM = 1, M 


N2 4 

МА NP * MN 
NB N 
SUM = 
DO 230 
SUM = 
N2 

КА 
N2 = η οὶ 

ACN2) - A(N2) - SUM 

WRITE THE MODIFIED ROW ON TAPE OR CONDENSE THE ROW 
M * 1 


m 
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N 
REWIND MT 
REWIND NOUT 


SWITCH THE TAPES 
NT 
MT NOUT 
NOUT = NT 
LOOP BACK THRU THE SOLUTION 
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WE 


NL = NF 
GO TO 140 
- START TO WRAP IT UP 

80 REWIND NIN 
NZ = N 

X NOTE.. AT THIS POINT ALL LOCATIONS A(1) THRU A(KORE) ARE FREE 
DO 300 ТЕ = 1, NPASS 
READ VK 


NS 
NT 


= READ I 


ب0 0 
-22: 


THE SOLUTIONS 


+ 1 
T 


M 
L NIN, 1,NM, A(NS), 1» AA2) 
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22 
aL 


UrmDHZZOOZ 
g- 
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BROUTINE SAVE(TU, IT, N, Nl, Al, N2, A2) 
DIMENSION А1(М1), А2(М2) 
GO TO ( 10 , 20 , 30 ›©°0 ), ІТ 


IU) A1 


» А1, А2 


= 

9 

ні 
Umm DEA DEA DE¬ 
Cczmzm mom mam mam 


BROUTINE GETT(IU, ІТ, М1, А1, М№, А2) 
DIMENSION AI1(N1), A20N2) 

GO TO ( 10 , 20 » 30 , 40 ), IT 
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ROUTINE BAKSUB( TRANS , SUMMER , NEHMAX ) 


SUBROUTINE BACK SUBSTITUTES THE COEFFICIE 
A SOLUTION TO CBTAIN THE RIGHT SIDE MATRIX 
KING THE MATRIX SOLUTION. 


COMMON/MATHEN/NCASES , ISYMM,IPRINT ,JETFLG,IGTY ING 
9175ء‎ КЕСИБ NNT ,NJT ,NMAX ,NHCG0 ) ,NJC G0 ), I 
COMMON “SOLV1/GAMMA( 600,16) 

DIMENSION TRANS HERIR SUMMER ( NEWMAX ) 


WRITE { 6 
10 FORMAT(1H1 547%, 26HBACK SUBSTITUTION SOLUTION) 


CYCLE THE RIGHT HAND SIDES 
DO 60 H = 1,NCASES 


T 
om 
COO cor сон сон 


AM—‏ کرو 


E 
E 
N 
Uc 


THI 
САМ: 
СН 
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D 
R 
R 
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D 
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D 
R 
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E 
S 
s 

1 
C 


IREAD = 0 

FIND(1'IREAD+1) 
EE HE MATERIE s CORRESPONDING TO ELEMENTS ON THE WING 
READ THE COEFFICIENT MATRIX ROW 

ІР(І .Е0. МЯТ%1) ІКЕАО = NMAX 

IREAD - IREA AD +1 
20 READ(1'IREAD} TRANS 


UM UP THE TERMS FOR THIS ROW AND RIGHT SIDE 
رہ‎ - 0.00 
30 J = 1,NEWMAX 
SUMMERTT ) - SUMMER I) * TRANS(J) * GAMMA(CJ,N) 
50 CONTINUE 


[A 
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0 0 
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2 
100 RETURN 


40 CONTINUE 

PRINT THE NTH RIGHT 
ШЕТТЕ 50 IN 

50 FORMAT 0 50x ,17HR 

60 CONTIN 
SOLIN 


E COLUMN 


R 
HT SIDE COLUMN, I94,60(/1X,10E13.5)) 


U 
۲ 


DE 
MHE 
RIG 


END 
SUBROUTINE STAGES 


HIS SUBROUTINE CONTROLS C 
UNDAMENTAL AND COMPOSITE 


COMMON/MATHEW/NCASES 
COMNON/MAR RO! 
COMMON/JO 
COMMON/SPIRIT 

Ee 


- 
F 


ΞΕ 
Pro 


ж 
N 
= 
ж 
O 
` 

2 
ж 


~ ΟΟ-- Πο مھ‎ ΣΟ} Ὅ 


= 
` 


goOmr-J»70-3z 


zu Е Ὁ 
ν ΟΟΟ”Ο Ὅπιωο-ίς н 


wm (REE 


»>CPRO(600),CPRA(600), 


—WAMN CONN XON FP 
схо О ОХО: «mo» 
ьо ο” οώΣλ»Οοπι}χ» 
-~ ООО ہج رٹی‎ )۸( 
PO vO Urcy oxoom»c-« Op 


2) 
1a, ($n, 5),CPP(1)) 


= 
rO wae ғ ~ онњ ——O0O کے‎ 


OO ^U ουσ تج ہدنب‎ = 


ING FOR ALL FUNDAMENTAL CASES 


p» x O-oocccp»umPpqzmri 


MQMC , DUMG ,NEWMAX ,NOALFA,LCASE ) 


,CMQ ,CHOMC 
1 goerercrent” DERIVATIVE DUE TO PITCHING, 


Ё ( 
ЕТ 
β΄ MOMENT COEFFICIENT ο ο. ABOUT ORIGIN, 
CHING ABOUT ХСС, СМ 

IG FOMENT COEFF DERIVATIVE ABOUT XMC, 

TCHING ABOUT XCG, CMQMC =, F10.6) 

CALL STGSFT 


CALCULATE AND PRINT THE LOADING FOR ALL COMPOSITE CASES 
EECGNCC .LT. 1) GO TO 100 


0+ 9۷۰ 
MCASE : 
50 CALL 3725211161014۵۷۰ MCASE ,NOALFA ) 
60 CONTINUE 


70 GO TO 100 


CALCULATE AND PRINT THE COEFFICIENTS AND DERIVATIVES FOR ALL 
FUNDAMENTAL CASES 

80 CALL FUNDER(EPS,CPO,CPA,CPRO,CPRA,CPP,DEL,CHORD,Y,DELTA,CMU,AREA, 
1 CLQ > CHA, CMQMC ;CLLP ,CHP2 ;NH , TJ SNMAX RIF NEAR NCASES,NOALFA, 
2 NROWS ,TSYMM» XLEAD , TANLE , XHC ) 


Е AND PRINT THE STABILITY EL la FOR ALL ا و‎ CASES 
90 CALL COMDER(EPS,CPO,CPA,CPRO,CPRA,CPP,CPREAD,DEL,CHORD >Y ,CMU, 
ELTA,AREA,CLQ,CHQ, 696 ٣ СМР2, NH, EU. ММАХ, мәт, МЁЙМАХ, 
NCASES »NRONS »ISYMM,XLEAD > TANLÉ ; ХМС) 


ЕМО 
SUSROUTINE STGSFC(NEHMAX ) 


THIS SUBROUTINE CONTROLS CALCULATION OF CHORDWISE LOADING 
FOR FUNDAMENTAL CASES 


COMMON/MATHEW/NC 
COMMON/MARK/NRON 
۱۷ک‎ 66017 06 
COMMON/FCASES/EF 
COH 1ON/ JCASE/CHJ 
COHPON/SOLV1/CPt( 
DIMENSION xBB( 5) 
CALCULATE AND PRINT THE CHORDWISE LOADING OF THE FUNDAMENTAL CASES 
INITIALIZE THE MED VALUES OF CP FOR PRINTING 
NC1 NCAS 


ASES 1 
IF(NCl Hee 10) GO TO 20 


ze 


Tl» Оо О 20207 
хы OPTIO 


DO 20 N = 
DO 10 I = 1,NEWMAX 
CP(I5N) = 0.00 
10 CONTINUE 
20 CONTINUE 
30 I = 0 
II = NAT 
DO 320 К = 1,NROWS 
IF(IPRINT em i GO TO 70 
WRITE(6, 40 ) 
GO FORMAT(1H1,25X,12(G6Hxxxx ) , 1HX/ 
1 36X54 9H CHORDWT SE LOADING FOR ALL FUNDAMENTAL CASES ۶7 
26x; 12(6HxXxx ) , 1H 
WRITE(6, 50 ) K,Y(K) *CHORD(K), (N,N=1,10) 
50 FORMAT( 1HO,35X,7HSECTION,13,5%53HY =,F10.6,5%,7HCHORD =,F10.6/ 
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8X,1HI,5X,2HXB,3X,9( 5bX, G4HCASE, I2), 5X, GHCASE I3) 
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2.00 * CP(I,N) 


7 0 ЕЛЕНЕ 90 ) I,XB(I),(CP(I,N),N=1,10) 
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ILINES + NJK + 1 
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PRINT THE DETAILED LOADING ON THE SINGULAR ELEMENTS 
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RINT .GT. 0) GO TO 320 

Ind arx, 29HDETAILED LEADING EDGE LOADING) 

i 1,NCASES 

LE LCASE ,CP( IP;LCASE ),CP(LIP41,LCASE ),DELLIP ), XBB,CPEXP) 


= 1,5 
90} M,XBB(M),(CPEXP(M,N),N=1,NCASES } 
IDINESO 407 


aM rO JOO OOO 


στ ΕΙ ολ 


E .EQ. 0) GO TO 320 

= 1,NHK 

J),.LT,.40) 50 TO 250 

= ASES 

CPLJN),CPLJ-1,N) DELIJ-1),BETALJ,N), 
ΒΡΙΕῚ ,XB(J); XBB,CPEXP ) 

T. 46) GO TO 200 


> 
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S2, SSHDETAILED HINGE LOADING ON ELEMENT,I4) 
) M XBBUL , UCPEXP CM, N) N21, NCASES ) 
N = 1,NCASES 
21 LCASE CPU JN) CPL J +1 3H} gDELU J) BETAL JN); 
(к ›;ХВВ›СРЕХЁ) 


mur mp» rmmss»snmp- 4 


CHORD 


Ts ча 
ILINES + 12 

.EQ. 0) .OR.(CHU(K) .LT. 0.0001)) GO TO 320 
т) GO TO 320 
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Ë ULATION OF ALL SPANHISE AND TOTAL 


RLS CALC 
Te CASES 


HI CON 
OADING FOR FUNDAMENT: 


ILINES + 12 
SUBROUTINE STG3FS(CLQ,CMQ,CMQMC ,CLLP,NEWMAX,NOALFA,LC) 


S_ SUBROUTINE 
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F оо CREF 

ΠΠ με) "==> ENTER XMC, THE POINT ABOUT WHICH PITCHING MOMENTS W 
+ ! 

PRINT ж, ) TAKEN, MEASURED FROM THE WING APEX (ORIGIN). 

PRINT *, ' USE THE SAME UNITS AS SPAN.(R)' 

Eo ХМС 

PRINT x, 'zz» ENTER XCG, THE WING CENTER OF GRAVITY LOCATION, MEAS 
+ ! 

Б FROM THE WING APEX (ORIGIN). THIS WILL BE USED AS TH‏ 2ئ 
I‏ + 

rÍ ж, ' PITCHING AXIS FOR COMPUTING THE STABILITY DERIVATIVE 
+ ! 

PRINT *, ' DUE TO PITCHING. SAME UNITS AS SPAN.(R)' 

PRINT *, ' NOTE: THIS VALUE IS REQUIRED IF IDERIV IS NON-ZERO. 
E 27 : IF STABILITY DERIVATIVES NOT REQUIRED, ENTER 0: ' 
READ (5,*) ХСС 
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E OF INPUT DATA?', 
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27% SPAN' ,7X, 'CREF' ,7X, 'AMC' ,8X, 'XCG') 
NGE ECOND LINE OF INPUT DATA?, 

= YES} 2 МО) 
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СЕМ 
'zz» ENTER NROHS;, THE NUMBER OF SPANWISE SECTIONS THE WIN 
E. DIVIDED INTO. REQUIREMENT:(3.LE.NROHS.LE.40).(I)' 
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.NCASE 
MUST BE ONE MO 
SoA INPUT AIUD BE GIVE 


TTACK CASE. REQUIREMENT S*UI.LE.NCASES.LE. 10). (I )"' 


+ 
}> 


Y INDICATOR FLAG.(I}' 


.دہ بس 


ж, ‘==> ENTER J 
X, " жжж WARN 
ж, = 0 
>” = 1 
D (5,%) JETFLG 
1 ‘==> ENTER IGTYPE, THE WING PLANFORM GEOMETRY INDICATOR F 
= 1 WING PLANFORM IS COMPLETELY ARBITRARY, AND SECT 
, LEADING AND TRAILING EDGE COORDINATES WILL BE R 
> TO DEFINE THE PLANFORM. ' 


x, ' = 2 WING PLANFORM IS TRAPEZOID DAL, AND SIMPLIFIED ' 
е, ' PLANFORM INPUT WILL BE READ. 
T. IGTYPE 


ΝΤ #‚ 'zz» ENTER IHINGE, THE HINGE EVD INDICATOR FLAG.(I)' 

ΝΤ ж, 0 REGULAR EVD ONLY WILL BE USED ON ALL HINGE ELEM 
NT x, ' > 0 HINGE EVD HILL BE USED ON ALL HINGE ELEMENTS. 
NL x, ' OPTION IS NOT PERMITTED FOR USE IN COMPUTING TH 
DYNAMIC STABILITY DERIVATIVES (IDERIV>0). 
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МТ ж, ' 
Er) IHINGE 
RINT *,'==> ENTER IDERIV, THE DYNAMIC STABILITY DERIVATIVE FLAG. 
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NT x, ' 
Teens 
ШЕ > D 
TX 

(5,x) IDERIV 
Тж 
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.ECUTED HITH NO STABILITY' 


ECUTED FOLLOWED BY A' 
VATIVE RUN. 


AX -xX 


WRITE (67600) 
600 FORMAT 21909 SUMMARY OF ERIRD LINE OF INPUT DATA?', 
DOES YES; 2 МО) 


' £i 
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NROWS »,NCASES » ISYMM,IPRINT 
JETFLG,IGTYPE ,IHINGE ,IDERIV 
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IGTYPE',1X,'IHINGE ' , 1X, ' IDERIV' ) 
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TYPE OF RUN ES DESIRED 
E. 0) GO TO 


M MILL BE EXECUTED 

0, 70 J 100, 120 τα 

DERIVATIVE RUN HILL BE EXECUTED 

в .ЁЧ. 2) СО ТО 120 
PRINT COMPLETION MESSAGE FOR THIS RUN AND GO BACK TO BEGIN A NEW RUN 
бо FORMAT λιβός, νη zHxxx/ 22X, 


53H* ROSRAM AS” REACHED NORMAL TERMINATION x/ 
32% ,10( SH¥¥*¥X* 3 3H 


ОО ОО 
Uu» 
о 

2) 


O 
o> 
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OOO00 


C PUT ZIN AN OPTION TO DO ANOTHER RUN OR PRINT A '9' CARD AND QUIT .3xxx 
C READ(5, 20, END-100) TITLE 
C 90 IF(TITCEC1) وع۔‎ CHECK) GO TO 10 
C ο το το 
ς 
PRINT X,,'-22,DO YOU HISH TO ENTER ANOTHER SET OF DATA? (Y OR N)! 
90 READ (5, '(A1)') 
IF (ANS.EQ. 'Y') THEH 
GO TO 6 
ELSE IF (ANS.EQ. 'N' ) THEN 
6ء‎ 1010 ) CHECK 
PRINT x, ' INVALID RESPONSE - REENTER.' 
GO TO οὐ 
END IF 


PRINT ж 
1010 FORMAT(A4) 
C PRINT 2) ۷۵۷ MESSAGE AND STOP EXECUTION 


100 WRITE(6, 80 
110 STOP 


QX30 X X Xx X Xxx X 353535 3353333353 3333333 3€3€ 3€ € € 3€ X 3€ € 3€ 9€ 9€ € 3€ € ¢ ¢ 3¢ 3¢ EX € CX X € € € X € X € X 2€ 3€ X 
C A FATAL ERROR HAS OCCURED. PRINT FINAL MESSAGE AND STOP EXECUTION. 
Саа X3€3€ 3€ 9c X 3€ 3€3€ 9€ € € € € € € € € 92 3€ 9e 9€ € € € € 2€ X 2€ € € 9€ € € € 
120 HRITE(6 
120 FORMAT LHOZ7/ 62x, 2(GHXXXX )/21X,11( 5Hx3009x ) 7 
1  z1*,55H* THE PROGRAM HAS REACHED ABNORMAL TERMINATION */ 
14080 ات او کت‎ s 0 
Q3 X X € x Xx X € Xx 3X3 X XY € XXX € xxx 3€3€ 3€ 3€ 3€ 93€ 3€ 9€ 9€ 9€ € 3€ € 3€ € 3€ 3€ 3€ 29€ 9€ 3€ 9€ 3€ 9€3€ 9€ 9€ € CC 2€ 9€ € 2€ € ¢ 33€ E 3¢ X 


END 
SUBROUTINE CLRSCRN 
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C LIBRARY ROUTINE TO CLEAR THE SCREEN. 
ISTAT - LIBSERASE PAGE (1,1) 

emo T————— وی یرپ پر ہر‎ 
SUSROUTINE QUERY ( NÀNS ) 


C 
C ROUTINE TO TRAP ERRORS CAUSED BY IMPROPER RESPONSES TO QUESTIONS. 
C THE COMPUTER GENERATES AND ERROR WHEN A CHARACTER IS SUPPLIED TO 
C A QUESTION EXPECTING AN INTEGER OR REAL VALUE. 
NQTEST=0 
1 CONTINUE 
IF (NOTEST .GT. 0) THEN 
PRINT x, ' “CHARACTER VALUES ARE NOT VALID.' 
END RENT *» ' PLEASE ENTER A VALUE OF 1 OR 2. 
NQTEST = NQTEST + 1 
READ (5, X, ÉRR-1)NAHS 
Ө ИИИ оН 
Я SUBROUTINE APPLY1 
С THIS SUBROUTINE CONTROLS ALL ASPECTS OF INPUT FOR REGULAR CASES 
COMMON/MATHEH/NCASES ISYMM, IPRIMT,JETFLGAIGTYPE IHINGE 
COMMON/SPIRIT/ NE NEVICMU,NOALFA>LOGIC;IR 
C DECIDE RNETHER OR НБТ M HERE Is ÀN OALPHAU CASE 
NOALFA = 1 
IR = 1 
LOGIC = 1 
c IF(ISYMM .LT. 0) NOALFA = ο 
С INITIALIZE AND INCREMENT THE CMU CASE CONTROL COUNTER 
10 NEWCMU = 
с 20 NERCMU = NEKCMU + 1 
C EXECUTE THE PROBLEM FORMATION STAGE 
30 CALL STAGEI 
EDETO | 40 , 60 , 70 » 80 ), IR 
с 40 CONTINUE 
С THE PROGRAM HAS BEEN EXECUTED SUCESSFULLY 
С GO BACK AND DO A NEW CHU CASE 
IF(JETFLG .NE. 0) GO TO 60 
GO TO 20 


E 
C CC Y CC XC € X 9€ € € € M 3€ 96 ME JE € € HEHE HEHEHE € EC 93€ € € X OC C PE FE C C E CC C E CE E E CE XC C CK 
С یتم‎ HAS BEEN COMPLETED. RETURN TO START A NEW RUN. 


6 2 
RETURN 
С 5 BEEN COMPLETED. NO FURTHER RUNS FOLLOW. 
RETURN 
C A FATAL ERROR HAS OCCURED. RETURN AND QUIT. 
че 
ИСИ 
В SUBROUTINE APPLY2 
C THIS SUBROUTINE CONTROLS ALL ASPECTS OF INPUT FOR 
E STABILITY DERIVATIVES 
C 
C CHECK ON STATUS OF CONTROL FLAGS 
10 IHINGE = 0 
NOALFA =1 
NERCHMU = 1 
IF(ISYMM .GE. 0) GO TO 30 
ІЅҮММ = 0 
WRITE(6, 20 ) 
20 FORMAT( 1HO///16X »41HTHE ISYMM FLAG INDICATED AN ANTI-SYMETRIC, 
C 1 48H CASE. HOWEVER, IT HILL BE TREATED AS SYMETRIC.) 
E EXCECUTE THE FIRST RUN 
C FORMULATE THE PROBLEM AS USUAL 
50 CALL STAGE 
O T 40, 110, 100, 110), IR 
C 40 LOGIC = 1 
С WRITE(6, 70 ) 
70 FORMAT(1H1l////////777// S7X,ll(G4H*x*x*x*),2Hx*x / 
1 πη SECOND RUN FOR STABILITY DERIVATIVE CASE * / 
2 27Х,11(аНхжжж), л ж) 
۰.٠۱۱٦75 IS A ἐὐήείητο WING, SWITCH IT TO ANTI-SYMETRIC FOR RUN 2 
C 80 IF(ISYMM .Е0. 0) 15Ү! 
CXXKKHHXHKHKHKHK HHHH HHH KKK E KK E EK EE E E E E E E EE E E E E E E EE E E E E E E E E E E E E KC E E E E EE EEK 
THIS IS THE END OF THE LINE 
100 RETURN 
C THE FOLLOWING LINE SHOULD NOT BE REACHED. INCLUDED FOR CONTINUITY. 
С ШТ ο OR HAS OCCURED. RETURN ABNORMALLY TO MAIN. 
RE TUR 


(C 3€3€ 3€ € 3€ cc yc e 3c x HEHE HEHEHE Xx x X 3c 3c 9c €x 33€ €X X 3€ €x X 3€ 3€ 3€X XC X 363€ € €X 3€ 3€ 3€ 3€ 3€ 9€ 3€X€ 3€ X€ 3€ 3€ 9€3€ 3€ 3€ 3€ 3€ 3€3€ 9€ X 
END 
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SUBROUTINE STAGEI 


C 
C THIS SUBROUTINE READS THE GENERAL GEOMETRY PARAMETERS AND FLAGS, AND 
C CONTROLS THE CALLING OF THE SPECI TATED GEOMETRY SUBROUTINES 
COMMON/MATHEN/HCASES ,ISYMM ,IPRINT JETFLG, IGTYPE , IHINGE 
EOMMON/MARK/NRCHS > NROMSI NTIT ,NJT NMAXONACG0) NJUG0 ); TACG0 ) ,IJCAO ) 
= COHMON/SPIRIT/ NEMMAX,NÉFCHU OAL FE LOS GIC,IR 
С CHECK WHETHER THIS IS THE FIRST CMU CASE 
IF(NEHCMU .GT. 1) GO TO 50 
к IF((NRONS GT. 40) .OR. (NROMS .LT. 3)) GO TO 80 
C SECTIONAL INPUT 
10 IF((IGTYPE .EQ. 1).0R.( IGTYPE .EQ. 2))CALL SGMAIN(NOALFA, IR) 
c GO TO ( 20932000 9100 ); IR 
C USER INPUT ERROR 
C PRINT ERROR MESSAGE BECAUSE IGTYPE HAS THE WRONG VALUE 
20 WRITE(6, 30 ) IGTYPE 
20 FORMAT( 1H1///44%,32HTHE IGTYPE FLAG HAS THE VALUE OF ,I2/ 
1 44QX,27HONLY THE VALUES 2 ARE ACCEPTABLE// 
2 44% TÉHELEASE ΒΕΕΗΤΕΕ γ᾽ 
READ(5,*) ۴ئ‎ 
= GO To io 
С READ THE COMPOSITE CASE REQUIREMENTS 
40 CALL INCOMP(NCASES,IR) 
ë IF(IR .ÉEQ. 2) GO TÓ 100 
C READ THE CMU DATA 
50 CALL BLOHIN(JETFLG,IR) 
GO IO ( 4g . 110 7: 120 ); ІР 
60 CALL BOXJLNÉWHAX , 1R) 
- IF(IR EQ. 27 GO TO SO 
C RETURN NORMALLY TO THE CONTROL PROGRAM 
Е GO TO 120 
C PRINT ERROR MESSAGE BFCAUSE THE NROWS VALUE IS UNACCEPTABLE 
80 ИВІТЕ(6, 9 1. 
< 90 FORMAT (iH1/55xX,7HNkOMS 5,13) 
(C 3€3€ 3€ 3€ 9€ 3€ € 3e 3€ 3€ 9€ X 3€ € 3€ 3€ 3€ 9€ € ХХХ ХХХ 5 
C Ao FATAL ERROR HAS OCCURED. ^ RETURN ABNORMALLY TO MAIN. 
GO TO 120 
C RETURN. To MAIN AND BEGIN A COMPLETELY NEW RUN 
GO TO 12 
C RETURN Το HAIN AND STOP THE EXECUTION 
120 IR = 3 
120 RETURN 
MESE MD r 3€ X: 3C 3€ 3€ 3€ 9€ 3€ 9€ 3€ 9€ 2€ 9€ 9€ € 9 3€ 2€ 9€ 2€ € 2€ 6 9€ 5 3€ 9€ 9€ 9€ 3€ 3€ 39€ 3€ 2€ 9€ 9€ 0 3€ 9€ 3€ 9€ 9€ 9€ 2€ 3€ 3€ 9€ 3€ 3€ € 9€ 3€ 3€ 3€ € 2€ 3€ 2€ 3€ 
5 SUBROUTINE SGMAIN(NOALFA,IR) 
C THIS SUBROUTINE CONTROLS ALL GEOMETRY CALCULATIONS FOR THE 
C SECTIONAL GEOMETRY METHO 
1 COMMON/MATHEW/NCASES , ISYMM,IPRINT ,JETFLG,IGTYPE ,IHINGE 
С READ THE WING PLANFORM GEOMETRY DATA 
10 CALL INPTS(IR) 
ТЕТЕ .EQ. 2] GO TO 100 
τειτο ρε EQ 1) CALL ۵۶۲ 
IF(IR .EG. 2) GO TO 100 
: IF(IGTYPE .EQ. 2) CALL XLETR2 
C NORMALIZE THE WING PLANFORM GEOMETRY DATA 
< 20 ۲ھ‎ 1 
C READ THE JET SHEET GEOMETRY DATA 
20 CALL INPUTJ(IR) 
E IF(IR LEQ. 2) GO TO 100 
C CONSTRUCT THE EVD ELEMENTS 
GO CALL BOXS(IR) 
А IF(IR .EQ. 2) GO TO 100 
С CONSTRUCT THE SET OF FUNDAMENTAL GEOMETRIC CASES 
DO 90 N = 1,NCASES 
д LCASE = М 
C READ THE GEOMETRY FOR THIS CASE 
E 50 CALL INCASE( LCASE,NOALFA) 
C PRINT THE GEOMETRY AND CONSTRUCTED CASE DATA IF DESIRED 
IFO LCASE EQ LIJ WRITES, ٣ 
E 70 FORMATC IHL) 
CALL CL CLRSCRN 
PRINT x, '==> DO YOU WISH TO SEE THE CONSTRUCTED CASE ۰ 
PRINT x*, ' ENTER 
75 READ (5,'(A1)') ANS 
IF (ANS.EQ. 'Y') THEN 
GO TO 80 





ELSE IF (ANS.EQ.'N‘'} THEN 
ΠΕ TO 90 
PRINT *, ' INVALID RESPONSE - REENTER.' 
GO TO 75 
END IF 
PRINT ж 
1010 FORMAT(AG} 
80 CALL OUTI(LCASE) 
90 CONTINUE 
IR = 2 
C RETURN 
E AN ERROR HAS OCCURED. RETURN ABNORMALLY TO STAGE1. 
100 IR = 3 


RETURN 
ΙΙ. ^ o IU C элн» 
SUBROUTINE INPTS(IR) 


C 
Č THIS SUBROUTINE READS THE WING GEOMETRY DATA FROM THE KEYBOARD 
С FOR THE SECTIONAL GEOMETRY METHOD 
COMMON/MARK /NROMHS ,NROHS J , NWT ,NJT ,NMAX ,NW(40) ,NJE40) ,IW(40} 15140} 
COMMON/GE OM1/Y (40 )  CHORD( 40 ); DELTACG0), XBC 600), XI( 600) ,DEL( 600), 
1 D(40);KK(600 ) IT YPE( 600) 
COMMON/GE OM2/XLEAD(4O ) , XTRÁIL(4O) , TANLE(CA40 )  TANTE(CA4O ) 
Сочи04/551/%84120,107,28.3(20,10),1СТҮРЕ(402,1.ТҮРЕ(40), 
1 NHTYPE ,NJTYPE 
COMMON/INDAT/LUN 
К DIMENSION NI(10} 
С INPUT THE SECTIONAL PLANFORM DATA 
k 10 МИТҮРЕ 2-6 
C SECTION CENTERLINE LOCATION CARDS 
CALL CLRSCRN 
PRINT x; SECTION CENTERLINE LOCATION VALUES' 
PRINT X, i--» ENTER Y, THE SPANHISE DISTANCE FROM THE CENTERLINE ;' 
PRINT x, ° τν στο) THE SECTION CENTERLINE», NORMALIZED BY 
PRINT Xo» THe BALP- tpi, SPAN/2. REQUIREMENT: (-1.0«Y«1.0).(R)' 
PRIHT x, ' BEGIN AT THE RIGHT WING TIP AND WORK TOWARD: 
{PRINT o БЕТІНІ ЕРІНЕ FOR SYMETIRIC OR AHNTISYHMETRIC N 
PRINT x, ' b) LEFT WING TIP FOR NON-SYMMETRIC WINGS. ' 
PRINT x ' A MAXIMUM OF 40 SECTIONS IS ALLOWED. ' 
DO 15 K = 1,NROWS 
WRITE(6,12) K,NROKS 
PEAD(S, X* ) Y(K1 
12 РОВМАТ(1Х, | ENTER SECTION CENTERLINE ',I2,' OF ',I2,' SECTIONS.', 
PRINT ж 
c..15 CONTIMUE 
C SUMMARY OF SECTION CEPTERLINE IHPUT DATA 
CALL. CLRSCRN 
BRINT zs '  xx* YOU ARE ENCOURAGED TO CHECK THIS DATA] xxx ' 
PRINI X» | IF THE SECTION CENTERLINE VALUES ARE NOT VALID' 
PRINT x, ' AN ERROR HILL BE DETECTED BY SUBROUT BO 
PRINT x; ' THE PROGRAM HILL TERMINATE, AND YOU BILL HAVE то! 
PEINT х› ' REENTER ALL YOUR DATA. The CHOICE τὸ Υδυκὰ 
WRITE (6,12) 
13 FORMAT (1X,'SUMMARY ОР, SECITON CENTERLINE INPUT DATA?', 
1/>1X%>25H==> ENTER 
CALL GUERY (NANS) 
IF (NANS.GE.2) GO TO 20 
WRITE (6514) 
WRITE (6,19) (K, Y(KO),K21,NROWS) 
WRITE (6,16) 
CALL QUERY (NANS) 
IF (NANS.EQ.1) GO TO 10 
14 FORMAT (1X,7X,' THE SECTION CENTERLINE } 
16 FORMAT (7/,1X,'DO YOU HISH TO CHANGE/REENTER THIS INPUT БАТА?" 
1/,1X,25H==> ENTER 1 = YES; 2 = NO} 
20 CONTINUE 
С KRITE DATA TO FILE 
HRITELLUN, 18 j (YLK) K=1,NROHS ) 
18 FORMAT(8F10.6) 
m FORMAT (II 5X, 'SECTION =',12,3X>'CENTERLINE =',F10.6) 
С WING SECTION TYPE CARDS 
CALL CLRSCRN 
PRINT 
PRINT x, ' WING SECTION TYPES' 
PRINT x, ‘==> ENTER ICTYPE, THE TYPE NUMBER ОЕ ЕАСН WING SECTION. 
PRINT x, ' THE ARRANGEMENT OF EVD ELEMENTS IN A ROW ۰غ ع6‎ 
PRINT *, ٠ THE WING ROW TYPE. GNY SECTIONS HAVING THE SAME NUMB 
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^ 
- 


ж," OF ELEMENTS, ALL NITH THE SAME SPACING FROM THE SECT 

LEADING EDGE ARE OF THE SAME ICTYPE. BEGIN WITH A TY 
5 1 AND WORK IN SEQUENCE; 2,3,...( ASCENDING ORDER .(I)' 
жу" A MAXIMUM OF 10 SECTION TYPES IS ALLOWED. ' 
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2. “2. 
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ҮРЕ 
А MAXIMUM کر‎ 10 ΛΠ m ALLOWED. 
YOU MAY, ENTER ^ ONLY ONE MORE DIFFERENT TYPE. 


UMBER. OF WING ROM TYPES 2,123) 
R SECTION TYPE FCR SECTION οτε ОЕ ον 7۶ 
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24” CONTINU 
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E OF WING SECTI TYPE INPUT DATA?', 
1 YES; € 2 


O TO 25 
(K;ICTYPE(K ) ,K Z1, NROHS ) 
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y CHORDWISE WING ELEMENTS’ 


~ 
E 

Тж, ‘==> ENTER NI, THE NUMBER OF CHORDWHISE WING EVD ELEMENTS" 
T i FOR EACH WING SECTION TYPE. THE NUMBER OF ELEMENTS M 
и 

1 


Ἂχ BE ENTERED IN ASCENDING ORDER BY ICTYPE. THERE MAY B 
x, ' FEN AS 2 ELEMENTS PER SECTION TYPE OR AS MANY AS 20. 
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MUM_OF AND A MAXIMUM OF 20° 
H ° ARE ALLOWED. ' 
E REENTER' 
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(М,МІ(М),М-1»ЭМИТҮРЕ) 


М5) 
GO TO 33 

CHORDWISE МІ NG ELEMENTS DATA IS:' 
ION -',I2,3X,'CHORDWISE ELEMENTS = 


ITE DATA TO FILE | 
WRITE(LUN, 301 ) (NI(NJ,N=1,NHTYPE } 


READ THE CHORDWISE DIVISION DATA FOR EACH ROW TYPE | 


-~ 0 σ.ο--»ῬΖς 
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TOM CALL CLRSCRN 0 "NM 
PRINT X 
PRINT X, ' ΜΙ͂ΝΘ CHORDWISE ELEMENT COORDINATES" 
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PRINT *, ‘==> ENTER ΧΒΗ, THE CHORDWISE COORDINATE OF EACH VORTEX P 
+ . 
PRINT x, ' THE VORTEX POINT IS DEFINED AS THE LEADING EDGE FOR' 
PRINT*, LEADING EDGE EVD''S ZMD,THE "PEAK" POINT FOR REGULAR; ' 
PRINT *, ' HINGE AND JE ©, 
PRINT o, A SET OF ٤ 5 REQUIRED FOR EACH WING SECTI 
+ ° 
PRINT x; ' THE NUMBER OF OF COORDINATES HILL CORRESPOND TO THE 
+ ' EA 
PRINT ٭×‎ ° OF ELEMENTS ENTERED ON THE PREVIOUS CARD. ' 
PRINT ж, + THE LEADING EDGE COORDINATE MUST BE 6.0 AND WILL AUT 
+0۳ 
PRINT 3, BE ENTERED FOR YOU. THE LAST VALUE MUST BE LESS THAN 
PRINT * 
DO 50 М < 1,МИТҮРЕ 
NIN = NIIN) 
ХЕМ(1,М) = 0.0 
DO' 45 L 5 2,МІМ 
WRITE(6 542) N 
WRITE(6;42) L,NIN 
46 READ(5, w ) XBW(L»N) 
XBWN 2 XBHW(L,N) 
IF(CXBWN .LT. 0.0) .OR. (XBWN .GE. 1.0)) THEN 
NRITE( 6)41) ХВИМ 
PRINT ж, ' COORDINATE VALUE MUST LIE BETWEEN 0.0 AND 1.0' 
PRINT ж, ' PLEASE REENTER 
GO TO 46 
END IF 
45 CONTINUE 
CALL CLRSCRN 
PRINT X 
PRINT X, ; Xx LEADING EDGE VALUE OF 0.0 ENTERED FOR EVD', 
+ ' ELEMENT l xxx' 
50 CONTINUE 
61 FORMAI(IN,5X,ZOHCHORDHISE ELEMENT COORDINATE =,F10.6) 
42 FORMAT(1X,' FOR MIHG SECTION TYPE NUMBER ',I2) 
43 FORMAT(IX,' ENTER CHORDKISE COORDINATE FOR EVD ELEMENT ТАУ ОЕ 
> > 
С SUMMARY OF CHORDHISE ELEMENT COORDINATE INPUT DA 
CALL CLRSCRN 
ΤΕ (6,47) 
47 FORMAT (l1X,'SUMMARY OF ELEMENT COORDINATE INPUT DATA?', 
1/:1Х,25Ң--2> ENTER 1 5 YES; 2 = NO) 
CALL GUERY (NANS! 
IF (NANS.GE.2) GO TO 60 
54 CALL CLRSCRN 
WRITE (6,48) NWTYPE 
READ (5,*) NSEC 
WRITE (6,69) (L,XBHCL,NSEC), L2 1,NI(NSEC ) ) 
IRITE (6:16) 
CALL QUERY (NANS) 
IF (NAHS.EQ.1) THEN 
N = HSEC 
NIN = HI(N) 
XBNCI,N) = 0.0 
DO 55 L = 2,NIN 
WRITE(6,42) NSEC 
WRITE( 6343) L>NIN 
56 READ(5, x ) XBNL,N) 
XBMNM 2 XBHLSN) 
IF( (XBYN .LT. 0.0) .OR. (XBWN .GE. 1.0)) THEN 
WRITE( 6541) ХВИМ 
PRINT wx, ' COORDINATE VALUE MUST LIE BETKEEN 0.0 AND 1.0' 
PRINT ж, ° PLEASE REENTER 
CO TO 56 
ND IF 
55 CONTINUE 
C 0 


PRINT x, : DO You WISH TO CHECK ANOTHER SECTION?’ 
PRINT ' ==> ENTER 1 = YES; 2 = NO 
CALL QUERY (NANS) 
IF {NANS.EQ.1) GO TO 56 
CONTINUE 


END IF 
48 FORMAT 1X27% WHICH SECTION TYPE DO YOU WANT TO LOOK АТ?" 
NTÉR A VALUE BETWEEN I AND ',I 

49 FORMAT (ік, کت‎ ELEMENT NUMBER z',12,2X, E ORDINATE =',Е10.6) 


C DEFINE THE E NUMBER OF CHORDWISE DIVISIONS FOR EACH ROW, USED LATER 
DO 70 K = 1۱1808+55 


NIN = NI(N) 
WRITEC(LUN, 18 ) (XBW(L,N),L=1,NIN) 
80 CONTINUE 


IR = 1 
RETURN 

EI ο ο ο AEON 
SUBROUTINE INPUTJ(IR) 


C 3 
C THIS SUBROUTINE READS THE JET ELEMENT GEOMETRY INPUT 
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THE NUMBER AND CHORDWISE SPACING OF THE JET ELEMENTS ARE READ 
COMMON/MATHEHZHCASES  ISYHM TPRINT , 0۷ IGTYPE ,IHINGE 
COMMON/MARK/NRONS »NROHSI HMT N (G0 ).NJ(GO1,1TW(40) ,IJ(40) 
Он ОН/ 561 1 07 1018.-120» ER во пд 


WTY PE st 4ӘТҮРЕ 
MON/INDAT/LU 
ENSION RICO) 


M 
M 
TYPE = 0 OF DIVISION FOR EACH ROW 
OW 


WSJ 0 
F(JETFLG .NE. 0) GO TO 90 


L 611 
x, ў ЧЕТ SECTION TYPE NUMBERS' 


жу ! THIS IS_ VERY SIMILAR ШЕ THE WING SECTION TYPE DATA' 
ж," COMPLETED PREVIOUSLY 


x ° THE ARRANGEMENT OF JET ELEMENTS IN A SECTION DETERMI 
x, ' THE JET SECTION TYPE. ANY SECTIONS HAVING THE SAME N 
OF ELEMENTS, ALL WITH THE SAME SPACING WITH RESPECT' 
; THE WING SECTIONAL CHORD TO WHICH THEY ARE ATTACHED' 
: OF THE SAME TYPE. BEGIN WITH A TYPE NUMBER OF 1 AND' 
і IN SEQUENCE, 2,3,...(ASCENDING ORDER).' 

к A SECTION WITH NO JET HAS A TYPE OF O (ZERO). 

: A MAXIMUM OF 10 JET SECTION TYPES IS ALLOMED. THERE ' 
: IS A REGUIREHENT THAT THE SECTIONS WITH JETS AN 

' WITHOUT JETS MUST BE IN GROUPS OF THREE OR MORE. 

==> ENTER IJTYPE, THE TYPE NUMBER OF EACH JET SECTION.(T 
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X,5X,29HNUMBER OF JET SECTION TYPES 
Lx," ENTER JET SECTION TYPE FOR BECTIÓN ! I2," OF S I2 85 


SET UP FOR ROW CONSISTENCY CHECK 


DEFINE THE NUMBER OF CHORDWISE DIVISIONS FOR EACH ROW 
= 1,NRONS 


| NE 0) GO TO 80 
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MT $9 GO TO 170 
90 


HAS , OCCURED . PRINT A MESSAGE AND ENTER DATA AGAIN. 
ж, ROW CONTINUITY RULE FAILURE|I' 

x, ' REVIEW آ5 ۶ئ‎ SECTION DAT JET SECTIONS MUST BE' 

РКІМТ ж, ' IN GROUPS OF 3 OR MORE AND THERE MUST BE AT LEAST z' 

PRINT *,' UNB LORN WING SECTIONS INBOARD OR OUTBOARD OF ANY JET." 


GO TO 20 
190 CONTINUE 
SUMMARY GOES HERE 
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CALL CLRSCRN 
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PRINT ж 
PRINT >, CHORDWISE JET ELEMENTS' 
PRINT *, '==> ENTER NI, THE NUMBER OF CHORDWISE JET EVD ELEMENTS' 
PRINT *; ' FOR EACH JET SECTION TYPE. THE NUMBER OF ELEMENTS ', 
eM ' 
PRINT x; BE ENTERED IN ASCENDING ORDER BY IJTYPE. THERE МАҮ', 
+' 5 
PRINT X, ' FEM AS 2 ELEMENTS PER SECTION TYPE OR AS MANY А5 10: 
+ ' a 
PRINT ж 
C READ THE NUMBER OF CHORDWISE DIVISIONS (ELEMENTS) IN EACH ROW TYPE 
DO 30 N = I,NJTYPE 
WRITE(6,22) N>NJTYPE 
28 READ(5, * ) NIN) 
NIN = NIIN) 
ІЕСІМІМ .LT. 2) .OR. (NIN .GT. 10)) THEN 
WRITE(6,21) NIN 
PRINT x; ' A MINIMUM OF 2 AND A MAXIMUM OF 10" 
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IR - 1 
RETURN 
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100 CONTINUE 
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SUBROUTINE NORM1 
THIS SUBROUTINE NORMALIZES ALL WING PLANFORM GEOMETRY BY SPAN/2 
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CONTINUE 

BUTE ALL OTHER PARAMETERS 

I = I - NJK 

IJ(K) = I+ 1 

DO 1é0 L = 1,NJK 

τπτ νι 

KK(I) = K 

DEL{I) = XB(I41) - XB(I) 

XI(I) = XLEAD(K) + XB(I) * CHORD(K) 

ITYPE(I) s 10 

CONTINUE 

EFINE THE LAST DEL AND EVD TYPE AND THE D VALUE FOR THIS SECTION 
DEL(I) - 1.0E10 

ІТҮРЕ(І) = 30 

D{K} = XI(1) - XTRAIL(K) 

CONT INUE 

NMAX = I 

IFCNMAX 67. 800) GO TO 210 

МОТ = NMAX 2 МИ 

IP = 1 

RETURN 

ERROR HAS OCCURED. PRINT A MESSAGE AND QUIT. 
FORMAT í 1H1/38x ,4GHPLEASE CHECK YOUR SECTION LOCATION (Y) INPUT) 
RETURN 

WRITE(6, 220 ) NMAX 
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RETURN 

END 
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GO TO 3% 

D IF 
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NEMMÁX = МАТ 
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RETURN 
ERROR HAS OCCURED. PRINT A MESSAGE AND TRY AGAIN. 
FORMAT(iHO;4ZX,25HA ZERO VALUE OF CMU HAS BEEN INPUT., 
1р = 250 THIS'CMU CASE HAS BEEN IGNORED.) 
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DIMENSION TAN(40),X(40),Y( 40), St 640) 
SLOP(XR XL YR YL) = (XR-XL) / (YR-YL) 
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М 
CECE а Хен а ал 7 ты 
τ SUBROUTINE INCASE(LCASE ;,NOALFA) 
E THIS SUBROUTINE READS THE FUNDAMENTAL GEOMETRIC CASE DATA 


CHARACTERX1 ANS 
COH ON/HARÉ ZHESOHS »MROHS.) NHT ЫТ NMAX 
COMMON ECASEL/ININST INHITE, ін DE ЕГ.) 
0۸0۸۷ ٢٢۸۵ع‎ 2/0 λα 

1 XHBt 4 BGG a Be Can ETSI 
COMMON/INDAT/LUN 

DIMENSION NI( 10 },DUMMY(40) 


(40) IH( 40) ,IJ(40) 
ACTE(40},AC( 20,40) 
40 ), IHT(C 40 ) ,NCT , NHT 


) 
C 
2 IF(CLCASE .EQ. 1) .AND. (NOALFA .GT. 0)) RETURN 
CALL CLRSCRN 
PRINT 
WRITE( 6 LCASE 
5 FORMATI Hg 4X,'FUNDAMENTAL CASE CONTROL FLAGS FOR CASE ',I2,'.') 
PRINT x, ‘==> THE FOLLOWING QUESTIONS ARE USED TO SET THE CONTROL 
+ 4 
PRINT سس ٭×‎ THESE FLAGS IDENTIFY THE TYPES OF LINEAR GEOMETRIC V 
*ARIATIONS' 
PRINT ے‎ TO BE INCLUDED IN EACH FUNDAMENTAL CA 
PRINT *; ' ΤΗΕ ENGLE ορ ATTACK CASE IS ALREADY INELUDED AS CASE 
PRINT x 
PRIM x, ' A NO RESPONSE INDICATES THAT THE VARIATION HILL BE O 
+ Е 
PRINT * 
PRINT Xa A YES RESPONSE INDICATES THAT THE VARIATION HILL BE 
PRINT *, ' AND THAT YOU WILL PROVIDE THE REQUIRED AMPLIFYING IN 
+FORHATION. ' 
PRIN 
є--10 CONTINUE 
C READ FUNDAMENTAL CASE CONTROL FLAGS 
C 
PRINT *, ‘==> VARY SPANWISE TWIST DISTRIBUTION? (Y OR N)' 
20 READ (5, '(A1)' ) ANS 
IF (ANS.EQ. 'Y') THEN 
ІНТИЗІ = LCASE 
ELSE IF (ANS.EQ.'N') THEN 
INTNST = 0 
ELSE 
PRINT *, ' INVALID RESPONSE - REENTER 
GO TO 26 
END IF 
PRINT * 
PRINT ж, '==> VARY LEADING EDGE VERTICAL DISPLACEMENT? (Y OR N)' 
Z0 READ (5,'(A1)') ANS 
IF (ANS.EQ. 'Y') THEN 
INHITÉ = LCAS 
ELSE IF (ANS.EQ.'N') THEN 
INHITE = 0 
El SE 
PRINT *, ' INVALID RESPONSE - REENTER 
GO TO 30 
ND IF 
PRINT ж 
PRINT x, '==> VARY JET DEFLECTION? (Y OR N)' 
GO READ (5,'(A1)') ANS 
IF (ANS.EQ.'Y:) THEN 
INDELJ = LCASE 
ELSE TE (ANS EO. NC) THEN 
INDELJ = 0 





50 


60 


PRINT ж 
PRINT ж, ‘==> VARY THE WING CAMBER? (Y OR N)' 
READ (5,'(A1)') ANS 
IF (ANS.EQ.'Y') THEN 
INCAMS = LCASE 
ELSE IF (ANS.EQ. 'N' ) THEN 
= 10САМВ = 0 
PRINT *, ' INVALID RESPONSE - REENTER.' 
GO TO 50 
END IF 
PRINT x 
PRINT ж, "==> VARY THE WING HINGE DEFLECTION? (Y OR N)' 
READ (5 '(A1)') AN 
IF (ANS.EQ.'Y') THEN 
INBETA = LCASE 
ELSE IF (ANS.EQ.'N') THEN 
£ BÊTA = 0 
PRINT *, ' INVALID RESPONSE - REENTER 
GO TO 60 
END IF 
PRINT x 


— e— < x V x s س سے جب جم سے‎ . шын س‎ кыш ee ee ew oe oe oe «нә өл» жи» «жә өл» өше өше qu x x سے سے‎ m m жын ہہ ہہ ہي ہے ے س کہ ىہ = سے‎ жш» «шә «нә «шә سے ید‎ өне «шә «шә «ше «но «жә «нә «нә «шә Gum Gum um 


WRITE (6,580) 
580 FORMAT (1X,'SUMMARY OF FUNDAMENTAL CASE CONTROL FLAGS DATA?', 
1/;lX,25H--5 ENTER Y = YES; N = МО) 
READ (5,'(Al)') ANS 
IF (ANS.EQ.'N') GO TO 70 
CALL CLRSCRN 
WRITE(6,6) LCASE 
Б FORMATI ÍX, 2X; “CON NTROL FLAGS FOR FUNDAMENTAL CASE ',I2'.') 
PRINT x» : A NONZERO FLAG INDICATES THAT THE LINEAR VARIATION' 
PRINT X; ' HILL BE INCLUDED. THE VALUE OF A NONZERO FLAG' 
PRINT X. ' HAS BEEN SET TO THE, FUNDAMENTAL CASE ΤΠ RHICH IT * 
PRIMI x; ' IS INCORPORATED, HOWEVER THIS CHOICE IS ARBITRARY. ’ 
WRITE (6,581) 
WRITE (6,582) INTNST,INHITE ;»INDELJ,INCAMB ,INBETA 
WRITE (6,590) 
READ (5, (C AL)' ) ANS 
TE (ANS-EQ. Y * ) GOUT 
581 — FORMAT (1X, "INTHST', 5x; INHITE', 5X, 'INDELJ' , 5X, ' INCAMB' 5X; 
582 FORMAT (1X,5(2X,I12,7X1) 
£90 FORMAT (/7,1x,62HCHANGE FUNDAMENTAL CASE CONTROL FLAGS DATA?, 
/51Х,25Ң--> ENTER Y = YES; М = М 
«7ο CONTINUE 
C WRITE TO DATA FILE 
WRITE(LUN, 601 ) INTWST,INHITE,INDELJ,INCAMB,INBETA 
А 601 ҒОБМАТСБІ2 ) 
С READ SECTIONAL TWIST, HEIGHT AND JET DEFLECTION DATA 
Š IF(INTHST "tQ. 0) GO TO 8 
€ TWIST DISTRIBUTION CARDS 
CALL CLRSCRN 
PRINT x 
PRINT Ἀν" SPANMISE WING TWIST DISTRIBUTION VALUES' 
PPINT ж, THE SECTIONAL THIST IS THE HING THIST AT THE SECTION' 
PRINT >,” CENTERLINE WITH RESPECT TO THE WING REFERENCE PLANE. 
PRINT ж,* POSITIVE VALUES ARE IN THE SAME SENSE AS A POSITIVE! 
PRINT >, ANGLE-OF-ATTACK (LEADING EDGE UP) 
PRINT ,'==> ENTER TWIST, SECTIONAL WING TWIST, IN DEGREES.(R)' 
DO 80 K = 1,NROHS 
WRITELG6,12) K.NRONS 
READIES, X ) TRISTIK ,LCASE) 
12 FORMAT(IX, * ENTER SECTION TWIST FOR SECTION ',I2,' OF ',12,' SECT 
80 CONTINUE 
PRINT x 
C SUMMARY REQD 


С E iD DATA FILE 


εί ا یں‎ J) (TAIST(K, LCASE }),K=1,NROKS ) 


T 
701 РОВМАТ(8Е 


85 IF(INHITE .EQ. 0) GO TO 95 


x $e LEADING EDGE VERTICAL DISPLACEMENT ' 

PRINT ж," THIS DATA_INDICATES THE VERTICAL DISPLACEMENT OF THE' 
PRINT ж," LEADING EDGE FROM THE WING REFERENCE PLANE. VALUES' 
BENT as MUST BE NORMALIZED BY THE SECTIONAL CHORD. 

PRINT *,' DISPLACEMENT MAY BE THE RESULT OF DIHEDRAL, TWIST," 
PRINT ж,! NONLINEAR MOVEMENT OF A LEADING EDGE DEVICE, ETC. 
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=1,NROKS ) 


101 ) (ICT(K),K 
12) 


ELLE 
WRITE ( LUN 
CALL CLRSCRN 
PRINT * 


E 101 ҒОКМАТ(40 


5 CAMBER ANGLES FOR EACH CAMBER SECTION TYPE 


SUMMARY REQD 
WRITE TO DATA 


С 
С 
С 
С 
С 


PRINT x, ' CAMBER ANGLES FOR THE DOWNWASH CONTROL POINTS' 
PRINT X*, ' THE CAMBER AMCLE FOR THE DOHNWASH CONTROL POINT OF: 
PRINT *, ' EACH EVO ELENCNT I5 REOUIRED THE DOHNAASH CONTROL ' 
PRINT x; ' POINT IS ARBITRARILY CHOSEN ÅS HALFWAY BETWEEN ANY’ 
PRINT x? ' THO ADJACENT XB(EVD BOUNDARY) POINTS, INCLUDING THE' 
PRINT X; ' TRAILING EDGE. | 
PPINT x, ' POSITIVE VALUES ARE IN THE SAME SENSE AS A POSITIVE ' 
PRINT x» ' ANSLE-OF-ATTACK (LEADING EDGE UP). 
PRINT ¥, ‘==> ENTER AC, THE CAMBER ANGLE, IN DEGREES. (R)' 
C READ THE CHORDWISE CAMBER ANGLES FOR EACH CAMBER TYPE 
DO 120 N = 15NCT 
NIN Í NIIN) 
DO 125 L = 1,NIN 
NRITE( 6,52) NCT 
WRITE(65,5z) L;NIN 
READ(5, κε} ΑΕ» 
125 CONTINUE 
120 CONTINUE 
52 ЕОБМАТ(1Х,! FOR CAMBER SECTION TYPE NUMBER, * I2) 
$2 FORMAT(IX,' ENTER CAMBER ANGLE FOR EVD ELEMENT ',I2,' OF ',I2,/) 
с Ë FORMAT TIR, ° LOCATED AT CHORDHISE COORDINATE 5! 1676) 
С SUMMARY REQD 
C WRITE TO DATA FILE 
DO 135 H = 1,NCT 
N IN S NICO 


WRITE(CLUN,; 701 ) (АС(1»М),1:1,МІМ) 
135 CONTINUE 
IF(NRONSJ .EQ. 0) GO TO 160 


EE CERSCRN 


PRINT 
PRINT x, TRAILING EDGE CAMBER ANGLE FOR WINGS WITH' 
PRINT m JET SHEETS AND CAMBER. ' 
PRINT x, THE TRAILING EDGE DEFLECTION ANGLE DUE TO CAMBER' 
PRINT *> ONLY IS ENTERED HERE. THESE VALUES ARE USED TO' 
PRINT x, ' DETERMINE THE TOTAL JET DEFLECTION ANGLE WITH' 
PRINT X;' RESPECT TO THE FREESTREAM. VALUES ARE INPUT WORKING' 
PRINT کو‎ FROM THE RIGHTMOST JET TOWARDS THE CENTERLINE. | 
4 
PRINT X, POSITIVE VALUES ARE IN THE SAME SENSE AS A POSITIVE' 
PRINT x; ' AHGLE-OF-ATTACK (LEADING EDGE ОР). ' 
PRINT %,'==> ENTER ACTE, TRAILING EDGE CAMBER ANGLE (DEGREES). (R)' 
i 
C READ THE TRAILING EDGE CAMBER ANGLE FOR EACH JET SECTION 
D0 140 K = 1,NRONS 
WRITECG102 K^ 
WRITE(6,65) 
READ(5, x ) ACTE(K) 
140 CONTINUE 
62 FORMAT(IX,' FOR JET SECTION NUMBER ',I2) 
с 65 FORMAT(IX,' ENTER CAMBER ANGLE FOR TRAILING EDGE ',/) 
C SUMMARY REQD 
C MRITE TO DATA FILE 
: WRITE(LUN, 701 ) (ACTE(KO,Kz 1,NRONSJ) 
C  STOPPED HERE (JAC) - CASES WITH JETS HAVE NOT BEEN FINISHED. 
C__THE HINGE LOCATION, TYPE AND TURNINS ANGLE DATA 
C READ THE HINGE LOCATION, TYPE AND TURNING ANGLE DATA 
Neo TRCINDETA -Εᾱ- 607Т0 21 
С 170 READIS, 15593 کر وہ سب و و‎ 
DO 180 K = 1,NRONS 
ÍFCIHTCE) .GT. NHT) NHT = IHT(K) 
180 CONTINUE 
DO 200 N = 1,NHT 
READ(5, 190 ) (XHBLL M) SIFSUL;N D;BETCL ND L 71,4) 
190 FORMAT(G(F10.6,11,; )) 
200 CONTINUE 
C „1/0 MRITELS, 100 ) (IHT(K),K21,NRONS) 
И SUBROUTINE OUT1(LCASE) 
C THIS SUBROUTINE PRINTS OUT THE GEOMETRIC DATA DERIVED FROM THE 
С SECTIONAL METHOD INPU 
COMMON/MATHEW/NCASES , ISYMM,IPRINT , JETFLG,IGTYPE » IHINGE 
COMMON/MARK/NRONS ,NROWSJ ,NHT ,NJT ;NMAX ,NHLGO ),NJCGO )4y IHC 60) IJCG0) 
COMMON /LUKE/ T TITCE(20) 
COMMON/JOHN/ AREA,SPAN, ARATIO,TR,SWEEP ,СВЕЕ ,СМАС ,СВАВ > XMC 
COMMON/GEOM1/Y 140 j CHORDt40 J S BELTALGO 1 7X8 600 1 X1 (6001 ),D σεῦ δα), 
D( 40»; KKC 600 ) ; ITYPE(6001 
COMMON/GEOM2/XLEAD(60O ) , XTRAIL(60), TANLE( 40) ,TANTE(A4O ) 
COMMON/FCASE2/THIST(40;10)5HL( 60,10), DJ( 60 ); ACTECGO ) ; ACC 20,60) 
XHBtÓ ,40 );BETL6,640 » IFS(6, 60), 1C TC 40 ) ,IEHT( 40 ); NCTONHT 
COMMON/FCASEZ/EPS(600,10) ,BETA( 600,10); THETA(60, 10), THSC 60, 10) 
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= 1,NCC 
ΝΕΟΙ) 
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WRITE( LUN, 40 ) (ND(L),FUNNY(L)5L 


DO 70 
NFCI 


κο... 


NCC SETS OF DATA HAVE BEEN INPUT‏ ا 
> 
)25 


RETUR 
Cose COOOOODOOGOOOOOGUCOUOOIO ы 


GOO 


ON 


END 
SUBROUTINE BLOWIN( JETFLG,;IR) 


ERIS ΤΙΣ READS THE SECTIONAL JET BLOHING RATES 
CMU(K J / (Q * CHORD(K)) 


COMMON/MARK/NRONS ,NROMHS.J , NHT ,NJT ,NMAX ,NW(&0 ) ,NJC&0 ) INC 60) IJ( 60) 
COHVON/ICASE/CHUC40) ,CHUBL 403, CMUPP( 40 ) 
COMMON INDAT/LUN 


IF(JETFLG .NE. 0) GO TO 30 
READ THE CMU DATA ONLY FOR THOSE SECTIONS WHICH HAVE A JET 
READ(5, 10, END260 ) (DCMULK ), KZ T, NRORSJ ) 
10 FORMAT(8F10.6) 
20 IPCDCHULL) LT. 800.0) GO TO 30 
RETURN 
REARRANGE THE DATA INTO THE PROPER SEQUENCE 
DO 50 K = 1,NROWS 
40 CMUIK} = 0.60 
IF(NJ(K) .ÉQ. 0) GO TO 50 
KP = KP + 1 
CMU(K] = DCMULKP) 
50 CONTINUE 
IR = 1 
RETURN 
AN END OF FILE HAS BEEN READ. THIS RUN IS COMPLETELY FINISHED. 
70 FORMAT (1H1///41X »3 7HNO MORE CMU CASES HAVE BEEN REQUESTED) 
RETURN 
END 
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PROGRAM PANEL- NACA 0012 AIEFOIL 
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Figure 26. Program PANEL- Shape Generated Using Airfoil Coordinates Data File 


This figure was generated using the DISSPLA portion of EASYPLOT on the IBM 
mainframe computer. The surface coordinates for the airfoil were input to the PANEL 


program using an input data file containing 28 surface points. 
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PROGRAM PANEL- NACA 0012 AIRFOIL 
EQUATION GENERATED SHAPE 
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Fieure 27. Program PANEL- Shape Generated Using Internal Equation for 
NACA 0012 


This figure was generated using the DISSPLA portion of EASYPLOT on the IBM 
mainframe computer. The surface coordinates for the airfoil were generated by the 
feel provram using the internal equation for NACA AXNX series airfoils. Twenty 
points were used to describe the surface. Despite using fewer points to define the sur- 
face, there is virtually no difference between this plot and the one on the preceding page 


Каср Used actual airfoil surface data. 
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PROGRAM PANEL- NASA L5(1)-0013 
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Figure 28. Program PANEL- Shape Generated Using DATA Statements for 
NASA LS(1)-0013 


This figure was generated using the DISSPLA portion of EASYPLOT on the IBM 
mainframe computer. The surface coordinates for the airfoil were input to the PANEL 
program using the DATA statement entry method. The DATA statements Гог ШЕ 
NASA LS(1)-0013 within the PANEL program contain coordinates for 28 surface lo- 


cations. This plot is nearly identical to that found in Ref. 18. 
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Ficure 29. Program PANEL- Comparison of Shapes Generated for NACA 0012 
and NASA LS(1)-0013 


This figure compares the shapes of the NACA 0012 and NASA LS(1)-0013 airfoils. 
The actual surface coordinates were used for this plot. Again, this plot is nearly identical 


to a similar plot found in Ref. 18. 
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PROGRAM PANEL- NACA 0012 AIRFOIL 
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Fieure 30. Program PANEL-Surface Pressure Distribution for NACA 0012 


This figure was generated using the DISSPLA portion of EASYPLOT on the IBM 
mainframe computer. The pressure distribution is for the NACA 0012 airfoil defined 
bv an input data file containing 28 surface points at an angle of attack of six degrees. 


The results of the program run are repeated below. 


DATA RIDE: -OEBRESS.DAT 
ANGLE OF ATTACK IN DEGREES = 6. 000 


CD = 0.00387 CL = 0. 70980 СМ =-0.17750 CMC4 =-0. 00092 


184 


PROGRAM PANEL- NACA 0012 AIRFOIL 
EQUATION GENERATED SHAPE 
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Figure 31. Program PANEL- Surface Pressure Distribution for NACA 0012 Gen- 


erated by the Internal Equation 


This figure was generated using the DISSPLA portion of EASYPLOT on the IBM 
mainframe computer. The pressure distribution is for the NACA 0012 airfoil defined 
by the internal equation using 28 surface points, at an angle of attack of six degrees. 
The results of the program run are repeated below. A slight difference is noted between 
the plots and the values obtained. This is due largely to the difference in the number 


of data points used and the spline interpolation used by the plotting routine. 


DATA FILE: PPRESS. DAT 
ANGLE OF ATTACK IN DEGREES = 6. 000 
CD = 0.00721 CL = 0.72235 15:7 CMC4 =-0. 00398 
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PROGRAM PANEL- NASA LS(1)-0013 


CP (PRESSURE COEFFICIENT) 
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Figure 32. Program PANEL- Surface Pressure Distribution for NASA LS(1)-0013 


This figure was generated using the DISSPLA portion of EASYPLOT on the IBM 
mainframe computer. The pressure distribution is for the NASA LS(1)-0013 airfoil de- 
fined by a set of DATA statements containing 28 surface points at an angle of attack 


of six degrees. The results of the program run are repeated below. 


DATA FILE? “РРЫЕбБО БАТ 
ANGLE OF ATTACK IN DEGREES = 6. 000 


CD = 0.00324 CL = 0. 69366 CM Ξ-0. 16505 CMC4 = 0.00750 
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SPANWISE LIFT DISTRIBUTION 
USING VORTEX LATTICE SOLUTION 
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Figure 33. Program VORLAT- Spanwise Lift Distribution Using Cosine Spacing 


This figure was generated using DISSPLA and running the PRORSPAN program 
on the IBM mainframe computer. The spanwise lift distribution is shown for a flat 
rectangular wing of aspect ratio 2 at an angle of attack of six degrees. The results of the 


VORLAT program run are repeated below. (The PLOTSPAN program is located on the 


AERO disk of the IBM mainframe.) 


Æ COSINE GRID SPACING ** 


NX= 5 NY= 10 ASPECT RATIO = 2.00 ANGLE OF ATTACK = 6.00 


CL = 005 
CD = 0.0106492 
CD/CL2 = 0. 1587 
TIE = -0.055061 
ACP = О 21255 
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Figure 34. Program VORLAT- Spanwise Lift Distribution Using Uniform Grid 


This figure was generated using DISSPLA and running the PLOTSPAN program 
on the IBM mainframe computer. The spanwise lift distribution is shown for a flat 
rectangular wing of aspect ratio 2 at an angle of attack of six degrees. The results of the 


VORLAT program run are repeated below. 


wt UNIFORM GRID SPACING %% 


NX= S NY= 10 ASPECT RATIO = 2.00 ANGLE OF ATTACK = 6.00 


CL = 0. 25711 
CD = 0.0105673 
CD/CL2 = 0.1598 
CNLE = -0.054301 
ACP = ο ۳ 
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